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EDITORIAL 


Chers Pêcheurs, 


J'espère que vous n’avez pas été trop nombreux à mordre à lhameçon de notre 
numéro d’avril. La firme suédoise "zoo de Vincennes" n’existe réellement pas... 
Allez ! Ce n’était pas bien méchant. 


Ce mois-ci, il n’y a que du sérieux. Par exemple, l’article de Serge Vaudenay 
représente un travail colossal. Mais le résultat en vaut la peine ! Un langage de 
plus sur HP-71, c’est un événement majeur... 

La rubrique HP-28 (et HP-27) augmente de volume. Tant mieux ! Continuez à 
nous envoyer vos articles, vos programmes et vos astuces. Faites de cette petite 
machine une grande réussite ! 

En revanche, vous ne verrez aucun article pour HP-41. N'y a-t-il donc plus de 
possesseur de HP-41 dans le Club ? Rassurez-moi, écrivez. 


En attendant de lire vos contributions dans ZPC, 


Pierre David (37) 
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Gilles Barret 
8 rue du Prieuré 


95000 Cergy 
Tél : (1) 30 31 94 04 (après 19h) 


Vend: 

Imprimante HP-82162A (12/83) : 1500 F, lecteur de 

cassettes HP-82162A (6/83) : 1500 F, interface vidéo 

32 colonnes HP-82163A : 400 F, interface Minitel 

(nécessite un convertisseur HP-82166A) : 300 F, 

convertisseur HP-82166A : 1200 F, module 32 Ko 

Ram (CMT) : 1000 F, module Curve Fit pour HP-71 : 

500 F, module HP-IL pour HP-71 : 1000 F, 

imprimante Seikosha SP800 (utilisable avec 

convertisseur HP-82166A) : 2500 F, moniteur 

Goldstar : 500 F, le tout en excellent état. O 

o 





Sébastien Lalande 

12 rue de Seine 

78920 Croissy sur Seine 
Tél : (1) 39 76 27 41 


Ÿ 


Fait : 

Pose de modules 4, 32 ou 64 Ko pour HP-28C ; 
accélération HP-28C et connexion entre HP-28C et 
autres ordinateurs. 


Vend : 
Module 32 Ko Ram : 1000 F. 
Scandale 3 PPC. 


L \ ‘ 
Alain Villatte e module a9.5 Er etait 


3 rue Emile Masson UN poisson d'’ evril { 
56300 Pontivy 





on vous à bien 


Vend : 
se ev, hein ? 


HP-71 : 2400 F, imprimante ThinkJet : 2100 F, 
module HP-IL : 500 F, Texte : 400 F, Finance : 400 F, 
Forth + HP-41 : 500 F (tous ces modules pour 
HP-71). 
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UN TRESOR CACHE DU HP-27S 


Le tout nouveau calculateur scientifique de 
Hewlett-Packard, le HP-27S, présente une 
caractéristique tout à fait étonnante que j'ai trouvée 
un peu par hasard : il est capable de visualiser en 
hexadécimal le contenu de sa mémoire. Le 
fonctionnement est similaire à celui du debugger du 
HP-71 ou de la commande sYseoit de JPC Rom avec 
toutefois beaucoup moins de facilité : vous ne pouvez 
que visualiser la mémoire mais pas la modifier. 


Pour activer ce mode il faut appuyer simultanément 
sur [CLR] et sur la troisième touche de menu à partir 
de la droite. Vous voyez alors apparaître trois barre 
verticales : une à chaque extrémité et une au centre. 
Vous relâchez les deux touches enfoncées et vous 
appuyez sur t-]. La ligne supérieure de lafficheur 
contiendra alors : 


0209D:792D7A491F9830055 


02090 est l’adresse et 792D7A491F9830055 représente le 
contenu de la mémoire à partir de cette adresse. 


Vous disposez alors des touches suivantes : 

- [+1 décrémente l'adresse de 100,,; quartets, 

- +] incrémente l'adresse de 100,4 quartets, 

1-1 décrémente l'adresse de 1 quartet, 

- [+ incrémente l’adresse de 1 quartet, 

- [TAN], découverte par Jean-Jacques Dhénin, permet 
d'imprimer le contenu de la mémoire et incrémente 
l'adresse de 10,, quartets, 

- [CLR] et, simultanément, la troisième touche de 
menu à partir de la gauche provoque un MACHINE RESET 
qui vous sort de ce mode de visualisation de la 
mémoire. 


A partir de ce moment en jouant sur ces touches, il 
vous est possible d’examiner tout le contenu de la 
mémoire Ram ou Rom. 


Quelques résultats d’une étude très rapide : 


- la Rom fait 64 Ko et se trouve située entre 00000,, 
et 20000. 


- les textes de copyright et de version se trouvent, 
comme dans le HP-28 (voir JPC 47 page 14), dans les 
adresses hautes de la Rom. On a en effet : 


1FFC2:34F4059525947484 soit COPYRIGH 
1FFD2:4502840502139383 soit T HP 198 
1FFE2:7300F4B4D2237335 soit 7.0K-27S 
1FFD2:D24514818F9564 soit -E..... 


JPC 54 Page 4 


Les . représentent des caractères non ASCII. Le 
premier est 00 et sert de séparateur entre les deux 
messages, les derniers correspondent 
vraisemblablement aux sommes de contrôle: de la 
Rom. 


- La Ram commence en 50000,, et semble se répéter 
tous les 4000,4. Une caractéristique similaire a été 
observée sur le HP-28$. 


Je n’ai pas eu le temps d’explorer davantage : c’est à 
vous de poursuivre. N'hésitez pas à envoyer vos 
découvertes au Journal si vous trouvez de nouvelles 
séquences de touches intéressantes (si seulement on 
pouvait modifier directement le pointeur d’adresse ou 
le contenu de la mémoire !) ou si vous faites des 
trouvailles sur la structure interne de la machine. 
Concluons par un grand merci à HP pour avoir laissé 
la porte entrouverte ! 


Janick Taillandier (246) 


CHOCS EN RETOUR 


Le programme PCNP de Guillaume Le Stum (JPC 52 
page 5) donne des résultats aberrants comme 
celui-ci : 

C,P(540,254) = 1 au lieu de 4,76...E160 

Aucune parade n'étant prévue en cas d’overflow. 


Il est possible de prévenir des résultats illicites en 
modifiant le programme PANP : 


« 
63 CF 
OVER SWAP - 
WHILE 
DUP 2 > 
REPEAT 
1 + ROT OVER * 3 ROLLD 
END 
DROP2 
63 FS? 
« 1000 1 BEEP » IFT 


1 3 ROLLD 


Guy Toublanc (276) 


Dans mon article HP-28GTI (JPC 53), il s’est glissé 
une erreur. En effet, page 9 en haut à gauche la suite 
du programme de la page 8 : 


WHILE ... DROP » 
est fausse comme me la gentiment signalé 
Jean-Philippe Amans. En voici une autre version : 


DROP 
DUP SIZE 1 SWAP 
FOR 
X DUP X X SUB NUM 256 + R-B -STR 
4 99 SUB 18 
FOR Y DUP Y Y SUB 
1F uqu == 
THEN 
4000 .001 BEEP 
ELSE 
4000 .0000001 BEEP 
END 
NEXT 
DROP 
NEXT 
DROP » 


Sébastien Lalande (442) 





LE FACTEUR EST CONSTANT 


Les lignes qui suivent s’inspirent d’un article intitulé 
Constante arithmétique en RPN, article paru dans les 
numéros 13 et 14 de PPC-T et destiné au HP-41. 


Ouvrages cités : 


- Algorithms for RPN Calculators par John Ball. 
(1978) John Wiley & Sons. 


- Extend your HP-41 par W.A.C. Mier-Jedrzejowiez. 
(1985). 


- Le calculateur programmable de poche et ses jeux par 
Didier Guérin, Pierre Vaschalde, André Warusfel. 
(1978) Hachette. 


- HP-41CX Manuel d'utilisation 
(1984). 


Volumes 1 et 2 


- HP-28C Manuel de référence (octobre 1986). 


Les exemples sont empruntés à plusieurs manuels de 
Hewlett-Packard et d’autres constructeurs. Voici 
quelques passages des ouvrages précités : 


Extend your HP-41, page 49 : 


«De nombreux et nouveaux utilisateurs des 
calculateurs RPN se plaignent de n’y pas trouver un 
dispositif de facteur constant. Is ne se rendent pas 
compte que le registre L et LASTX fournissent la même 
possibilité... Une autre possibilité de faire de 
l’arithmétique avec constante est d’utiliser la faculté 
qu’a la pile de descendre à chaque opération et de 
copier T en Z. Cela implique de placer la constante 
en X, de presser [ENTER] trois fois, puis de taper 
successivement les nombres à traiter et de presser 
lune des touches [+], [-1, [*] ou 1/1. Après chaque 
calcul, il faut presser tCLX] puis le nombre suivant 
avant de déclencher le calcul avec la constante. Cela 
paraît plus compliqué que d’utiliser LASTX, mais cela 
donne la possibilité de soustraire d’une constante ou 
de diviser une constante, car la constante est en Y pas 
en X » 


HP-28C Manuel de référence, pages 358-359. 


Sous la rubrique Pas de duplication automatique du 
registre T, le manuel rappelle la possibilité citée 
précédemment et indique qu’elle est exclue sur le 
HP-28C, mais qu’il est facile de créer un programme, 
et il poursuit, sous la rubrique Mémoire affectée à la 
pile opérationelle : 


« Une pile opérationnelle dynamique a l’avantage de 
vous permettre d’utiliser autant de niveaux que vous 
en avez besoin, sans craindre de perdre des objets 
«par le haut de la pile» lorsque vous en saisissez de 
nouveaux «dans le bas». Mais cela a aussi 
l'inconvénient d’immobiliser une quantité importante 
de mémoire avec de « vieux » objets si vous les laissez 
dans la pile une fois vos calculs terminés » 


Par les routines 121, 221, *H' et !y', le présent 
programme élimine cet inconvénient et, d’autre part, 
exploite l'avantage énoncé auparavant, à savoir que le 
facteur constant est stocké en haut de pile (Top). 
Pour la simplicité de l'énoncé et par analogie avec le 
HP-41, le niveau 1 du HP-28C sera souvent nommé X 
et le niveau supérieur (Top niveau) T. 


En outre, l'avantage cité par Mier-Jedrzejowicz de 
pouvoir soustraire d’une constante et de diviser une 
constante est mis en valeur au menu (2) par les 
routines 'R' et ‘a'. Le programme dispose en effet de 
cinq menus, dont trois menus principaux et deux 
menus accessoires (routines de service). Les menus 
principaux proposent huit opérations arithmétiques 
courantes (voir ci-dessous) ainsi que leur routine 
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d’initialisation (qui vide la pile de son contenu et 
place en X le facteur constant), et, à titre d'exemple, 
six routines d’applications financières (11%, ‘ur, 121, 
X', IN! et 'Et). 


Les nombreux calculateurs à facteur constant 
présentent bien lPavantage qu'ils indiquent, mais 
seulement pour une suite de calculs dont le cours ne 
doit pas être brisé par un évènement fortuit. Dans ce 
cas, deux inconvénients se manifestent : 


(1) Si le calculateur ne comporte pas une touche 
[X+Y] (étant entendu que le facteur constant serait 
stocké en Y), on ne peut rappeler le facteur constant 
pour en connaître la valeur. Il est vrai que certains 
calculateurs affichent le dernier opérateur 
arithmétique utilisé (+, -, *, /) mais, pour retrouver 


alors la valeur du facteur constant, il faut 
respectivement taper: O [=], O [=]1[CHS], 1 [=], 
1 [=101/X]. 


(2) Lorsqu'on passe d’un calculateur à un autre, on 
s'aperçoit que le facteur constant est tantôt -en 
général- le deuxième paramètre de l'opération 
diadique (voir Ball) tantôt le premier paramètre. Ici, 
le facteur constant est toujours entré en première 
position, puisqu'il est entré dans la routine 
d’initialisation. Dans leur ouvrage (page 16) Guérin, 
Vaschalde et Warusfel signalent, au cours de la 
description du processus, que «le coefficient a été 
mis automatiquement en facteur constant 
multiplicatif ». Mais qu’en est-il si l’on veut utiliser ce 
facteur constant comme facteur constant pour une 
addition, une soustraction, une division ? 


Le présent programme tente de répondre à ces 
questions sur un HP-28C. L'affichage sur trois lignes 
permet de montrer en permanence le facteur constant 
sur la ligne supérieure (Top niveau). Le facteur 
constant se trouvant en haut de pile, on pourra, à tout 
moment, s’en servir pour effectuer l’une des autres 
opérations arithmétiques. Au fur et à mesure, un 
résultat pourra, soit être traité par les fonctions 
habituelles du calculateur, soit stocké dans la variable 
X réservée à cet usage, soit enfin utilisé comme 
nouveau facteur constant à l’aide de ‘?1 ou ??'. 


DESCRIPTION DES MENUS 


1) Le maniement du programme est plus aisé si l’on 
retrouve toujours les mêmes menus dans l’ordre 
indiqué ci-dessous. Il est préférable, avant d’entrer les 
programmes, d’entrer les noms des variables (leur 
libellé ayant été écourté au maximum). Pour faire 
cela, stocker dans la pile sur trente niveaux une valeur 
(1, par exemple) en tapant sur la ligne de commande 
en mode alpha : 
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€ 30 } 1 CON ARRY-+ DROP 

puis CENTER]. Entrer ensuite les noms des variables de 
droite à gauche et de bas en haut (du menu 5 au 
menu 1): XISTO], WISTOJ, etc. EISTO], NISTOI, 


1%! [STO], etc... ? [STO], X->[STO]. 


On pourra alors entrer les programmes dont on aura 
le plus besoin. Ils peuvent être tous présents en même 
temps dans la mémoire, maïs, dans ce cas, le 
programme !Z' (portefeuille) ne pourra stocker que 
trois valeurs. Si l’on souhaitait en stocker un plus 
grand nombre, on pourrait, par exemple, vider de leur 
contenu les variables 'N', 'E' et leurs routines de 
service !Z!, Ut, !Vr,1W! et 'X". 


2) Pour disposer du maximum de mémoire, il est 
recommandé  d’invalider les opérations de 
récupération de données [][COMMANDI, [1IUNDOI et 
[] [LAST]. 


Menus 
Initialisations 
sl 
1 2% LEZ À IA S D M | ‘Foncteurs! 
MRC | arithné- 
2) 1%: 41722] ru LR Q |->X | tiques 
[| Markup 
SE | Taux nomi- 
3) | = |=| C #2 | |N E | nal <--> 
7 taux ef- 
[Portefeuille fectif 
4) G H I J K L Routines 
de 
5) Ÿ Z U V W x service 


Explication des symboles 


Par analogie avec le calculateur HP-41 : T est le 
contenu du niveau supérieur, X du niveau 1. 





Libellé Opération Sort réservé à X 
du menu effectuée 
1er menu: 
X-> "xs n l'élever à ‘puissance T' 
A MORE lui Ajouter (Add) T 
S “x- lui Soustraire T 
D UX/ N le Diviser par T 
M AE le Multiplier par T 
2ème menu: Sort réservé à T 
R uw .xn Reste de T moins X 
Q MER Quotient de T par  X 
->X ne l'élever à 'puissance X' 


Premier (et deuxième) menu 


1) Reprise d'un nombre pour un calcul 
Manuel HP-41CX volume 1, page 24 


Exemple : Calculez 
96.704 + 52.394706 


52.394706 
Appuyez sur : 


52.394706 [?] 96.704 [A] [D] 


Affichage : 
3: 52.3947 
2; "149.0987/ " 
15 2.8457 
Exemple : Parmi les étoiles les plus proches de la 


Terre, Centaure et Sirius se situent respectivement à 
43 et 8.7 années de lumière. Utilisez c, vitesse de la 
lumière (9.5x10!2km par an), pour calculer leur 
distance par rapport à la Terre, en km. 

9.5 [CEEX] 1212] 4.3 [M] Terre-Centaure: 4.0850E13 
8.7 [M] Terre-Sirius:  8.2650€13 


2) Calcul avec constante 
Manuel HP-41CV (1980) page 41 


Exemple: La population d’une culture bactériologique 
croît quotidiennement de 15%. Calculez, pour une 
culture de départ de 1000, la population en fin de 
journée pendant cinq jours consécutifs. 


1.15 [2] 1000 [M] après 1 jour: 1150.0000 
[M] après 2 jours: 1322.5000 
[M] après 3 jours: 1520.8750 
[M] après 4 jours: 1749.0063 
[M] après 5 jours: 2011.3572 


Ces calculs de facteur constant peuvent se dérouler 
aussi facilement avec les quatre opérations. 


Deuxième menu (suite) 


°1% 
Cette routine réalise, au choix, deux objectifs : 
1) Après avoir saisi en ligne de commande un taux 
d'intérêt 1 (en %), l'appui de 1??1 suivi de t1% 
affiche : 

au niveau 3: le taux I qui vient d’être saisi 

au niveau 2: le taux I2, supérieur à I 

au niveau 1: le taux 11, inférieur à I 


Pour une valeur I fixée comme marge ou marque, sont 
calculées les valeurs 11 & I2 qui l’encadrent. 


Exemple: Quelles sont marge et marque si 1=20 ? 


20 [??] [1%] 20.0 
25.0 


16.7 


© KW 


Si I est considéré comme marge, la marque est 25.0 
Si I est considéré comme marque, la marge est 16.7 


Avantage: Le résultat trouvé peut être aussitôt saisi 
comme facteur constant, à utiliser avec la routine 
11%], comme ci-dessous (exemple). 


2) Pour un taux de pourcentage donné (en %), soit 
positif soit négatif : à partir de diverses bases, calcul 
du montant-pourcentage (à ajouter ou à ôter) et du 
montant total, après imputation de ce pourcentage. 


au niveau 3: en facteur constant, le pourcentage 
au niveau 2: détail de Popération 
au niveau 1: montant total 


Exemple (Manuel d'utilisation HP-25, page 62) : Un 
article coûtant 1500 F supporte une taxe de 6.5%. 
Quel est le montant de cette taxe et le prix de vente 
taxe comprise ? On pose les mêmes questions pour 
un article coûtant 1750 F. 


6.5 (221 1500 [1%] 3: 6.50 
2: "1500.00+97.50" 

14 1597.50 

1750 [1%] 3; 6.50 

2: "1750.00+113.75" 

15 1863.75 


Exemple : La calculatrice financière spécialisée TI-44 
propose, dans son prospectus, le problème suivant : 
Détermination du prix de vente correct. 

Vous souhaitez lancer une campagne de solde en 
préservant une marge de 20%. Quels seront les prix 
de vente d’articles achetés à 8.50 F et à 14.50 F ? 


20 [??] Si la marge est de 3: 20.00 
20.00%, La marque es 25.00 
est Le taux supérieur, 1: 16.67 
soit: 25.00%. 

[DROP][??] (25.00 en facteur constant) 
8.5 [1%] 3: 25.00 
2: "8.50+2.13" 
qe 10.63 
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14.5 CI4] 3: 25.00 
2: 114.50+3.63" 
1: 18.13 
n° 


Calcul de la marque et de la marge entre une base et 
diverses valeurs. 


Exemple Dans le problème précédent, que 
deviendra votre marge si, au lieu de 10.63F et 
18.13 F, vous fixez le prix de vente respectivement à 
9.90 F et à 19.90 F ? 


8.5 [727] 9.9 [y] 3: 8.5 
è: "8.5-CP-9.9" 
1: € 16.5 14.1 } 


La marge sera le plus petit des deux nombres: 141% 


14.5 (221 19.9 [u] 3: 14.5 
es n14.5-CP-19.9" 
1: C'310: 27818) 

La marge sera le plus petit des deux nombres: 27.1%. 


3ème menu 


>’ - Portefeuille 

Routine de saisie d’une série d’articles. Calcul du 
montant des postes, du total et du pourcentage du 
total (en %) pour chacun des postes. 


Avant de lancer le programme, initialiser par appui 
de 0 ts], ce qui affiche 0 (zéro) aux niveaux 1 et 2. 


Le programme permet au choix de saisir chacun des 
articles de deux façons : 


1) Si, pour l’article, on connaît le montant du poste, le 
saisir en ligne de commande et appuyer sur [2]. 


2) Si, pour Particle, on connaît le nombre 
d'exemplaires N et le prix unitaire P, saisir en ligne de 
commande N virgule P. P étant un prix, il peut 
comporter des décimales ; entrer celles-ci, après avoir 
tapé un point (décimal). Frapper 131. Le montant du 
poste est calculé et s’affiche en X. 


Après chaque saisie d’un poste, on peut connaître 
n'importe lequel des postes en entrant en ligne de 
commande le numéro # du niveau (où se trouve le 
poste que l’on veut interroger) et en tapant [#2]. 
L'affichage fait apparaître quelques instants (dont la 
durée est facilement modifiable) le montant du poste 
et son pourcentage du total. 
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Si l’on décide alors que la saisie est terminée, taper 
0 [2]. 


Pour continuer la saisie du portefeuille, entrer les 
articles suivants de la manière notée ci-dessus. A tout 
moment, l’on peut corriger (ou supprimer) un poste 


# en se servant de la fonction "corbeille à papier" 
affectée à [=]. 


Lorsque tous les articles sont entrés, appuyer sur 
[1 [CONT] Ou sur O0 [2]. 


Le montant des postes et, pour chacun d’entre eux, le 
pourcentage du total apparaissent sur l'écran, le 
niveau 1 étant constitué par le dernier article entré. 


Si toutefois, l’on veut attacher à chaque article son 
numéro d’ordre (niveau 1 : 1er article entré. niveau 
N : Nième article entré), appuyer sur 1c]. Si l’on se 
ravise, appuyer à nouveau sur [CI]. 


Exemple modifié (HP-27 Manuel d'utilisation, p.64) : 
Vous achetez 150 actions Merlin-Gerin à 450 EF, ce 
qui constitue, vous l’avez calculé, un poste de 67500 F, 
puis vous achetez 52 actions Locatel à 1404 F. Vous 
vous apercevez alors que vous avez commis une 
erreur en entrant le cours de l’action Locatel (1500 au 
lieu de 1404). Rectifiez l'erreur. Calculez alors le 
pourcentage du total de chacun des postes. 


Vous décidez ensuite d'acheter 200 actions Stockvis à 
1500 F. 

Votre portefeuille ainsi constitué, vous souhaitez 
connaître, dans l’ordre où vous avez fait vos achats, le 
montant de chaque poste, le total et le pourcentage 
du total pour chacun des postes. Vous voulez modifier 
la présentation et imprimer votre portefeuille dans 
l’ordre où il apparaît sur un relevé bancaire (1ère 
valeur entrée: en haut). 


(1) Initialiser 2: 0.00 
0 [m] ve 0.00 

(2) 67500 [5] total 3: 67500.00 
nb. d'articles entrés 2: 1.00 
montant du poste 1: 67500.00 

(3) 52,1500 [2] (total 4: 145500.00) 
nb. d'articles entrés 3: 2.00 
Merlin-Gerin 2: 67500.00 

erreur sur Locatel T: 78000.00 


(4) 1 [nm] Après correction de l'erreur, pile (2). 
(5) 52,1404 [2] (total 4 140508.00) 
nb. d'articles entrés 3: 2.00 
Merlin-Gerin 2: 67500.00 

Locatel 1: 73008.00 


(6) 1 [%2] Locatel 51.96% 
2 [#2] Merlin-Gerin 48.04% 
(7) 200,1500 [5] (total 4: 440508.00) 
Merlin-Gerin 3: 67500.00 
Locatel 2: 73008.00 
Stockvis 1: 300000.00 


(8) [I] [CONT] (total 4: "440508.00") 
Merlin-Gerin 3: "15.3% 67500.00" 

Locatel 2: "16.64 73008.00" 

Stockvis 1:"68.1% 300000.00" 


(9) Relevé bancaire: appuyez sur [C] 
(10) Pour étudier un autre portefeuille, (1). 
*%5? - Pourcentage en "tant pour cent" du total 


En dehors de lutilisation précitée au sein de la 
routine !2!, la routine ‘#2! rend le même service que 
la fonction préprogrammée :%1', avec l’avantage de 
conserver en T le total (facteur constant). Pour 
chaque valeur entrée et traitée, le résultat précédent 
est écrasé par le nouveau résultat. Il faut d’abord 
entrer la base au niveau 1. A la suite, entrer en ligne 
de commande chacune des valeurs dont on veut 
connaître le pourcentage du total, puis [#5]. 


Exemple : Par rapport à 340 quel est le "tant pour 
cent" de 64 ? Et de 86 ? 


[] [CCLEAR] 
340 CENTER] 64 [#2] 2: 340.00 
13 18.82 
86 [#2] 2: 340.00 
25.29 


Exemple (HP-12C Manuel d'utilisation, page 31) : Le 
mois dernier, les résultats de votre société se 
chiffraient à 3.92 millions de francs aux U.S.A., à 2.36 
millions de francs en Europe et à 1.67 millions de 
francs dans le reste du monde. Quel est le « poids » 
de vos ventes dans ces trois parties du monde ? 


[] [CLEAR] 

3.92 [ENTER] 2.36 [+] 1.67 [+] 7.95 
3.92 [#2] U.S.A. 49.31 
2.36 [#2] Europe 29.69 
1.67 [#2] Reste du monde 21.01 
INT 'E! taux Nominal <-> taux Effectif (actuariel) 


Dans lune et l’autre routine, il faut entrer le taux 
donné au niveau 1, puis les diverses valeurs du 
« nombre de périodes ». Appuyer sur tE] (ou (1). Le 
taux continu calculé est affiché en ligne 3, le détail de 


l'opération au niveau 2, le résultat au niveau 1. Le 
taux donné (facteur constant) est au Top niveau. 


Exemple (HP-18C Business Consultant, page 78) : 
Conversion d’un taux nominal en taux effectif. 

Vous envisagez d'ouvrir un compte d’épargne. 
Laquelle des trois banques ci-dessous offre le taux 
d'intérêt le plus avantageux? (présenter les résultats 


avec trois décimales) 


Banque 1 : 6.70% d'intérêt nominal annuel composé 
par trimestre 


Banque 2 : 6.65% d'intérêt nominal annuel composé 
par mois 


Banque 3 : 6.65% d'intérêt nominal annuel composé 
par jour 


6.7 [ENTER] 4 [E] taux continu 3: 6.930 
es "6.7N,4" 
%2 6.870 

[] [CLEAR] 
6.65 [ENTER] 12 [(E] continu 3: 6.876 
ei "6.65N,12" 
1: 6.856 
365 [E] continu 3: 6.876 
2: "6.65N,365! 
le 6.875 


Le taux le plus favorable est celui de la banque 3 qui 
offre un taux d'intérêt nominal annuel de 6.65% à 
composition journalière. 


DEMANDEZ LE PROGRAMME ! 


Premier menu 


Le facteur constant est le deuxième paramètre 
nommé. 


x+ (Puissance) 
Niveau 1 (X) à la ’puissance facteur constant” 


« H SUAP US ny » 
? : Etablir’ comme facteur constant le nombre affiché 
au niveau 1. la routine vide la pile et établit le facteur 


constant au Top niveau (1) 


« + z « CLEAR z » » 
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A : (Addition) Niveau 1 + Facteur constant T 
AN, HN x 

S: Sir Niveau 1 - Facteur constant T 
« H SWAP - "+ 1 J » 

D : (Division) Niveau 1 / Facteur Constant T 


« H SWAP / "/ 1 J » 


M: (Multiplication) Niveau 1 * Facteur constant T 


« H X UK » 


Deuxième menu 
Le facteur constant est le premier paramètre nommé. 
1% : (Pourcentage à ajouter à la base) 


« 
DEPTH 
IF 
è >= 
THEN 
H % DUP2 + 
ROT ->STR !'#1! + ROT ->STR + 
(Le cas échéant, PR1) 
SWAP 
(Le cas échéant, PR1) 
ELSE 
Y DUP 
INV .01 - DUP INV Marque (MarkUp on Cost) 
SWAP .02 + INV Marge  (MarkUp on Price) 
END 


?? : (voir la routine '?') 

«7? » 

u : MarkUp on Cost = Marque appelée Marge 
appliquée au coût sur HP-18C. MarkUp on Price = 


Marge appelée Marge appliquée au prix sur HP-18C 


« 


STD H Diminuer Le nombre d'objets. 
SWAP +STR !!-CP-" + Préparer affichage niveau 2 
SWAP +STR + de l'opération effectuée: 

C: MU sur Cost 
1 FIX P: MU sur Price 
DEPTH PICK Placer aux niveaux 1 et 2, 
ROT DUP2 3 et 4, valeurs Price & Cost. 
#%CH MU sur Cost = Marque 
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SWAP ROT 
#%CH ABS MU sur Price = Marge 


2 +LIST Affichage au niveau 1. 


» 


R : (Soustraction hp) Reste de (Facteur constant T - 
Niveau 1) 


ch OMR KR 
a : (Division hp) Quotient de (Facteur constant T / 
Niveau 1) 
«<H/"/NK >» 
-X : Facteur constant T ‘Puissance Niveau 1 (X) 
CHTUANMRK » 
Troisième menu: Portefeuille Taux nominal <-> 
Taux effectif 

(Portefeuille; pourcentage du total - en % - 


de chaque poste) 
Entrer un poste sous La forme: 


« - Nb d'articles, Prix unitaire. 
L ROLL ou bien: 
A.+ - Montant du poste 
L ROLLD € = Nb * Prix ) 
DEPTH DUP PICK - 
2 MOD Test de détection de La forme 
IF de l'objet qui a été entré: 
0 <> 
THEN - soit, multiplier: 
# Nb d'articles * Prix unitaire 
END + montant du poste 
DUP - soit, garder le montant, et, 


dans Les deux cas, le copier 
au niveau 2. 


DEPTH ROLL + Mettre au niveau 1 Le total 
et y ajouter montant du poste; 
DEPTH ROLLD mettre en haut de pile Le 
DUP nouveau total; dupliquer Le 
montant du poste. 
IF Test de détection de zéro: 
0 <> - soit Le montant du poste est 
THEN différent de zéro: l'afficher 
HALT et arrêter le programme 
ELSE - soit Le montant du poste 
DROP égale zéro: l'éliminer. 
END 
G Lancer La procédure de calcul 
» du "pourcentage (%) du total". 


= : (Initialisation de 5! ; "Corbeille à papier") 


« 


» 


» 


« 


DUP 
IF O <> 


THEN 


L ROLL 


1 - 
L ROLLD 

ROLL 

NEG 

DEPTH ROLL + 


DEPTH ROLLD 
ELSE 

CLEAR 

0 

0 


END 
KILL 


Test: 
- si un nombre # a été entré 
( numéro du niveau où se 
trouve le poste que l'on 
veut ôter du portefeuille), 
placer au niveau 1 Le compteur 
de nombre d'articles, 
le décrémenter d'une unité. 
Placer au niveau 1 Le montant 
du poste à supprimer, 
en changer Le signe. 
Placer au niveau 1 Le total; 
par addition, nouveau total. 
Le placer en haut de pile. 
- si 0 a été entré, vider pile 
a) initialisation à 0 du 
montant total 
b) initialisation à 0 du 
compteur de nb d'articles 


Oter de l'affichage Le témoin 
de ‘programme suspendu! . 


: Transformer, le cas échéant, une pile : 


1 DEPTH 
D 
FOR x 

x ROLL 
NEXT 


‘Total du PF, nb d'articles, 
valeur n, n°1,..., 2, 1! 

en une pile: 
Total du PF, nb d'articles, 
valeur 1, 25%5:.,/n°1, nl 


: Pourcentage (en %) du Total 


DEPTH 
IF 
3 > 
THEN 
PICK DUP 
I 
CLLCD 
+STR " PAL + 


3 DISP 2 DISP 


2 WAIT 
KILL 
END 


Deux cas d'utilisation: 

Au sein du programme ! !: 

à l'arrêt du prgm, si l'on 
veut Le % d'une valeur, 
entrer Le numéro du niveau 
de cette valeur, presser [%] 
pour affichage momentané du 
poste et de son pourcentage 
du total. 

Déclencher le calcul des 
pourcentages du total et 
l'impression du portefeuille, 
en entrant 0 [ ]. 


Fonction traditionnelle de 
“pourcentage du total!: 

a) vider La pile 

b) entrer Le total 


» 


c) entrer Le montant partiel 
d) presser [% ] -> résultat 
e) autre partiel, puis c), d) 


N : Conversion taux effectif en taux nominal 


« 


» 


3 FIX 

WE; n Préparer l'affichage des 
STD données au niveau 2. 

U 

1 DEPTH PICK % 

+ LN * EXP Placer Le taux nominal 

2% au niveau 1 et 

1 OVER V Le taux continu, niveau 3. 


E : Conversion taux nominal en taux effectif 


« 


» 


STD 

Wu," Préparer l'affichage des 
U au niveau 2. 

DEPTH PICK Taux nominal au niveau 1. 
#1 + 

SWAP ” Z Taux effectif 

1 

DEPTH PICK Placer Le taux effectif 
V au niveau 1 et 


L 
a 


e taux continu 
u niveau 3. 


G : Calcul de "Z du total" utilisé dans 5! 


« 


» 


L ROLL 
DROP 
LE 
FOR x 
DUP I 
1 FIX 
->STR "4 "+ 
SWAP 
2 FIX 
->STR + 


L ROLLD 
NEXT 
DEPTH ROLL 
DEPTH ROLLD 
(le cas échéant, 
PRSTC) 


->STR 


KILL 


Nombre choisi de décimales. 
Constitution de La chaîne 
donnant, pour chaque poste, 
son "% !! et 

son montant. 


Ranger la chaîne sous Le 
total du portefeuille. 
De ce total, former une 
chaîne, La ranger en T. 
Imprimer Les résultats. 
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H : Pour réduire le nombre d'objets dans la pile 
« Y DUP2 » 

1 : Routine utilisée par ‘#2! et ‘6! 

« DEPTH PICK SWAP %T » 


J: (J et k: routines utilisées par !X-+1, !+X1, tA1, 151, 
1D','M! et 'R','Q!) 


« ROT -STR SWAP + SWAP » 


« ROT -STR + SWAP » 


ee 


: (routine utilisée par 'Z', 'æ', 'G','Y!) 
« DEPTH 1 - » 


Nota : Si l’on souhaite afficher lopération 
arithmétique qui vient d’être effectuée, on peut (après 
avoir libéré de la mémoire, en vidant de leur contenu, 
par exemple, les variables 'N', 'E! et 1Z1,1Ut,1vt,1u1) 
entrer les routines suivantes : 


1J': « ROT +STR SWAP DEPTH PICK +STR X » 
IK': « ROT -STR DEPTH PICK +STR ROT ROT X » 
IXts «MEN + + + OVER -+STR + SWAP » 


Y : Pour réduire le nombre d’objets dans la pile 


« 
DEPTH 
IF 
3 >= 
THEN 
L ROLLD 
DEPTH 2 - 
DROPN 
END 


z : (routine utilisée par 'N','E' et 'V') 
« 1 - 100 * » 
U: ('u',!V' et 'W' sont utilisées par 'N' et'E') 


+ SWAP +STR + 
3 FIX 

SWAP DUP 

INV 1 
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« % EXP Z ROT ROT » 


« Y DUP DEPTH PICK -STR » 
X : Variable libre : on peut y stocker un objet, sans 
faire se décaler tous les menus ; par exemple, la 


routine décrite précédemment. 


Philippe Heïlbronn (233) 


LISTE DES ADRESSES DU 
HP-28S 


La liste suivante correspond à celle publiée dans ZPC 
47 page 13. Elle donne les adresses des fonctions de 
la HP-28S précédées du numéro de la fonction. 


00 DUP 75DC | 01 DUP2 75F6 
02 SWAP 7610 | 03 DROP 762A 
04  DROP2 7644 | 05 ROT 76E5 
06 OVER 7678 | 07 DEPTH 7692 
08 DROPN 7681 | 09 DUPN 76CB 
OA PICK 76E5 | 0B ROLL T6FF 
OC ROLLD 7719 | 0D CLEAR 7733 
0E LIST 7752 | OF R-C 7760 
10 RE 77A4 | 11 IM 77F0 
12 SUB 7832 | 13 LIST+ 7888 
14 CR 78c0 | 15 SIZE TBEE 
16 Pos 796C | 17  -STR T9AE 
18 STR- 79C8 | 19 NUM 79EC 
1A CHR 7A10 | 18 TYPE 7A34 
1C -ARRY 7AE4 | 1D  ARRY+ 7B85 
1E ROM 7BDé | 1F CON 7C5E 
20 IDN 7D4A | 21 TRN 7DE1 
22 PUT 7E32 | 23 PUTI 7FB9 
24 GET 814A | 25 GETI 8277 
26 SAME 8703 | 27 AND 87EC 
28 OR 886F | 29 NOT 88F2 
2A XOR 8952 | 2B == 89D5 
2C # 8A53 | 2D < 8AD6 
2E > 8B4A | 2F <= 8BBE 
30 >= 8c32 | 31 = 8CA6 
32 NEG 8D24 | 33 ABS 8D70 
34 CONJ 8DBC | 35 n 8E08 
36  MAXR 8E36 | 37 MINR 8E64 
38 e 8E92 | 39 i 8ECO 
3A + 8EEE | 38 - 8FDO 
30 * 9076 | 3D / 9144 
3E * 91FE | 3F  INV 92DB 
40 ARG 9327 | 41 PR 9370 


42 
44 
46 
48 
4A 
4C 
LE 
50 
52 
54 
56 
58 
5A 
5C 
5E 
60 
62 
64 
66 
68 
6A 
éc 
6E 
70 
72 
74 
76 
78 
7A 
7C 
TE 
80 
82 
84 
86 
88 
8A 
8c 
8E 
90 
92 
94 
96 
98 
9A 
9c 
9E 
AO 
A2 
A4 
A6 
A8 
AA 
AC 
AE 
BO 
B2 
B4 


R-R 
J 
SIN 
TAN 
COSH 
ASIN 
ATAN 
ACOSH 
EXP 
LOG 
LNP1 
FACT 
FP 
CEIL 
MAX 
MOD 
DR 
HMS 
HMS+ 
RNRM 
DET 
CROSS 
% 
CH 
RDZ 
PERM 
LCD 
MENU 
STO 
MEM 
CLUSR 
ABORT 
ERRM 
IFTE 
SYSEVAL 
RND 
NUM 
WAIT 
KEY 
SF 
FS? 
DEG 
FIX 
ENG 
FS?C 
BIN 
HEX 
ST 
RCLF 
STOZ 
RCLE 
>- 
CORR 
MAXE 
MINS 
TOT 
LR 
UTPC 


9469 
9524 
9602 
9686 
970A 
978E 
9876 
9B8FA 
99DD 
9A89 
9B35 
9BA5 
9c15 
9c85 
9CF5 
9D8D 
9E11 
9E77 
9EBF 
9F07 
9F4F 
9F97 
9FE9 
A081 
AODD 
A125 
A163 
A1A1 
A220 
A32B 
A396 
A3CA 
A3FE 
A450 
A54C 
A5D4 
A63A 
A73A 
A778 
A7B6 
A830 
ABAF 
A8F7 
A967 
A9B9 
AA60 
AA94 
AACB 
AB06 
ABBC 
ABFO 
AC38 
AC6C 
ACAO 
ACD4 
ADO8 
AD3C 
AD74 


43 
45 
47 
49 
48 
4D 
LE 
51 
53 
55 
57 
59 
58 
50 
5F 
61 
63 
65 
67 
69 
68 
6n 
6F 
71 


75 
77 
79 
7B 


7F 
81 
83 
85 
87 
89 
8B 
8D 
8F 
91 
93 
95 
97 
99 
98 
90 
9F 
A1 

A3 
A5 
A7 
A9 
AB 
AD 
AF 
B1 

B3 
B5 


SIGN 
sa 
cos 
SINH 
TANH 
ACOS 
ASINH 
ATANH 
LN 
ALOG 
EXPM 
IP 
FLOOR 
XPON 
MIN 
MANT 
R-D 
HMS- 
HMS- 
CNRM 
DOT 
RSD 
#T 
RAND 
COMB 
LCD+ 
DGTIZ 
RCL 
PURGE 
ORDER 
KILL 
ERRN 
EVAL 
IFT 
DISP 
BEEP 
LAST 
CLLCD 
CLMF 
CF 
FC? 
RAD 
SCI 
STD 
FC?C 
DEC 
OCT 
RCUS 
STOF 
CLE 
2+ 
NÈ 
Cov 
MEAN 
SDEV 
VAR 
PREDV 
UTPN 


94E2 
958E 
9644 
96c8 
974C 
9802 
9888 
9969 
9A1F 
9AF3 
9B6D 
9BDD 
9C4D 
9CBD 
9041 
9DD9 
9E49 
9E98 
9EE3 
9F2B 
9F73 
9FBB 
A035 
AOC3 
A101 
A149 
A187 
A1CF 
A26C 
A359 
A3B0 
A3E4 
A418 
A500 
A5A6 
A616 
A65% 
A75E 
A792 
A7F3 
A86D 
A8D3 
A92F 
A99F 
AAOA 
AA7A 
AAAE 
AAEC 
AB20 
ABD6 
ACOA 
AC52 
AC86 
ACBA 
ACEE 
AD22 
AD56 
AD9E 


86 UTPF ADC2 |  B7 UTPT ADE6 
B8 SCLE . AEOA |  B9 DRWE AE24 
BA COLE AE3E | BB SINV AE62 
BC SNEG AEF9 | BD SCONJ AF90 
BE STO+ 8013 | BF STO- 8118 
CO STO/ B222 | C1 STo* 834F 
C2 EXGET B5Cé | C3 EXSUB B5EA 
C4 OBSUB B622 | C5 OBGET B646 
cé FORM B66A | C7 COLCT B6A2 
C8 EXPAN B6DA | C9 ISOL 8712 
CA QUAD 8736 | CB SHOW B75A 
CC TAYLR GR TEE ES 87B6 
CE RCEQ B84D | CF STEQ 8871 
DO ROOT 8888 |  o1 f BBE1 
D2 ASR 8853 |  D3 RL 8877 
D4 RLB 8898 | D5 RR BBBF 
D6 RRB BBE3 | D7 SL BCO7 
DB SLB BC2B | D9 SR BC4F 
DA SRB BC73 | DB R-B BC97 
DC B-R BCB8 | DD CONVERT BCDF 
DE  INDEP 8021 | DF PMIN 8045 
EO  PMAX BD6é9 | El AXES BD8D 
E2 CENTR BDB1 | E3 RES BDD5 
E4 *H BDF9 | ES *W BE1D 
E6 DRAW BE4T | E7 PIXEL BESB 
E8 DRAX BE7F |  E9 PRI BE99 
EA  PRSTC BEB3 |  EB PRST BECD 
EC CR BEE7 | ED PRUSR BFO1 
EE  PRVAR 8F1B | EF PRMD BF5D 
FO  PRLCD BF77 | F1 CRDIR BF91 
F2  PATH BFBS | F3 HOME BFCF 
F4  VARS BFE9 


Les suivantes sont dans l’ordre mais les numéros 
recommencent vraisemblablement à 00. 


IF E3E2 | THEN(IF) E3F8 
ELSE E459 | END(IF) E479 
« E9D0 | » E9E6 
WHILE E4D2 | REPEAT E4F2 
END(WHILE) EA2D | DO E535 
UNTIL E555 | END(DO) EA&D 
START E56B | FOR E5B3 
NEXT E60F | STEP E37E 
IFERR E77A | THENÇIFERR) EA90 
HALT E842 


Sébastien Lalande (442) 


GRAND JEU POUR TOUTE HP-28 


Et voici enfin pour JPC et uniquement pour lui un jeu 
fantastique. Le but : très simple, trouver à quoi sert le 
programme ; ou plutôt, ce qu’il fait. Cette première 
version n’est pas très compliquée de manière à ce que 
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tout le monde ait ses chances. Mais il n’en reste pas 
moins fort amusant pour ceux qui pourront 
l'apprécier et apprendre à s’en servir. 


Les règles : tous les coups sont permis. La meilleure 
façon de trouver est de le taper, de l’assembler avec 
ASS et +LEX pour HP-28C (1BB et 1CC) ou ASSEMBLEUR 
pour HP-28$, de lexécuter, et enfin d’essayer 
plusieurs combinaisons. 


Attention, ce jeu n’est pas un bête Memory Lost et vos 
programmes ne risquent absolument rien, tant que 
vous le tapez correctement. Que les mauvaises 
langues qui parlent toujours avant d’avoir essayé se 
taisent. Si ce programme a été mis sous forme de jeu 
c’est uniquement pour vous faire refléchir sur les 
choses passionnantes qu’il met en oeuvre. Je n’en 
dirais pas plus long, et. 


Bonne chance ! 


"69C2053000808F1331F410F430015 
D01F4100C30015D0131142164808C" 


Envoyez vos réponses et suggestions au club. Résultat 
dans le prochain numéro. 


Paul Courbis (392) 
Sébastien Lalande (442) 
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Vovs avez 


Compris, vous ? 











Heureusement 


Pierre Pavid 


que 





preveat ÉautEs 





D pi 
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HP75 


J.Y. Hervé 


MAILEX 
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M4iLEX 


MAILEX est un Lex que j'ai développé peu après 
MADLEX dans un but professionnel : l'utilisation par 
le HP-75 de données stockées dans des fichiers de 
type DATA créés par la HP-41. Je pense qu’il devrait 
également fonctionner avec les fichiers SDATA du 
HP-71, ce qui devrait constituer un pont 
supplémentaire entre HP-71 et HP-75. 


Ce Lex reprend trois fonctions de MADLEX : 
MSEEKRC!Nom: dvi), MSEEKL(!Nom:dvi) et MREADS(!":dv'',R). 
Contrairement à ce qui se passe dans MADLEX, 
cette dernière fonction ne lit qu’un enregistrement 
complet de 256 octets à la fois (ne pas oublier de 
dimensionner la variable en conséquence). Une 
fonction complémentaire particulière, REG41$CA$), 
permet de convertir les caractères de la chaîne lue sur 
le support magnétique dans le format de la HP-75 
(NdiR : mot clé initialement publié avec R4ILEX). 


Voici donc une description des fonctions du Lex, avec 
une courte démonstration de lecture de fichier DATA 
de 41 et l'indispensable page de codes hexadécimaux. 
MSEEKR 

Syntaxe : 

MSEEKR (!'Nom: dv!) 

Cette fonction fournit le numéro R de 
l'enregistrement correspondant à l’adresse physique 
de début du fichier Nom sur le support :dv. 

Messages d’erreur : 

Erreur 62 : File not found 

Erreur 63 : Invalid filespec 

MSEEKL 

Syntaxe : 

MSEEKL (''Nom:dv!) 

Cette fonction fournit la longueur L en nombre 
d’enregistrements du fichier Nom sur le support de 
masse :dv. Le dernier enregistrement du fichier Nom 
sera donc à l'adresse R+L-1. 


Messages d’erreur : 


Erreur 62 : File not found 
Erreur 63 : Invalid filespec 
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MREAD$ 


Syntaxe : 


MREAD$ ('':dvii,R) 


Lecture des 256 octets de l'enregistrement R sur le 
support de masse :dv. Pour le lecteur de cassettes, la 
valeur de À varie entre 0 et 511 (0 à 2463 pour la 
disquette double face). 


La fonction retourne une chaîne de 256 caractères 
correspondant aux octets lus sur le support. 


Messages d’erreur : 


Erreur 63 : Invalid filespec 
Erreur 64 : Mass mem error 


REG41$ 
Syntaxe : 
REG41$ (AS) 


Cette fonction convertit les huit premiers caractères 
de la chaîne A$ en une chaîne de 0 à 16 caractères 
correspondant à la valeur numérique ou à la chaîne 
alphanumérique stockée par la HP-41 dans le registre 
correspondant du fichier de type DA (DATA). 


L'erreur 27 Invalid subscript est générée si la chaîne 
A$ comporte moins de huit caractères. 


Pour un nombre, la chaîne retournée qui comportera 
de 1 à 16 caractères pourra être interprétée par la 
fonction VAL. 


Pour une chaîne alphanumérique, la chaîne retournée 
comportera de 0 à 6 caractères. 


Attention : REG41$ peut convertir les premiers octets 
de toute chaîne, mais la conversion qu’elle effectue 
n’est valable que pour des données stockées sous 
forme registre, c’est-à-dire par groupe de huit octets 
dans des fichiers de type DATA41 ou SDATA71. 


Et voici les exemples promis : 
R = MSEEKR (MTEST:M1) ---> R = 30 


Le fichier TEST du support 
l'enregistrement 30. 


:M1 débute à 


L = MSEEKL Ç("TEST:M1") ---> L = 3 





Le fichier TEST comporte trois enregistrements. Il se 
terminera donc à l'enregistrement R+L-1 = 32. 


D$ = MREAD$ (#:M11,30) 
Lecture du premier enregistrement du fichier TEST. 


N$ = REG41$ (D$[9]) ---> N$ = "3.14159265" 
Lecture et traduction du deuxième registre de 
données du fichier TEST. 


C$ = REG41$ (D$[171) ---> C$ = "pl" 


Lecture et traduction du troisième registre de 
données du fichier TEST. 





Ah, les vancances … 





Jean-Yves Hervé (450) 


10 DIM A$[256] 

20 INPUT "DATA41: Fichier? ";A$ 4 
30 AS$=-A$&:MI" 

40 R=MSEEKR(AS) 

50 L=MSEEKL(AS)+R-1 

60 FOR J=R TO L 

70 A$=MREADS(#:M11,J) 

80 FOR 1=1 TO 255 STEP 8 

90 PRINT REG41$(AS[IJ);" M; 

100 NEXT I @ NEXT J @ PRINT 








La mer, 
le soleil 


… 






M&LEX 351 octets 


001 92954D018D4C2A4553A34D34314C455820206B00 FE Ÿ 
002 0A001E00120037003A003D004E00B300F9003A00 1F 

003 3A003A003A00FFFF405345454BD24D5345454BCC 38 

004 4D52454144A45245473431A4FFFF61179E 182054 AB 

005 B1A38214C65FO00640AE35EE3F00F182D54B14382 18 

006 14C65FOOSEOAE364E3CEE4FC9E9842B0B38306E4 CB 

007 43ABFFCEDFEACE774AF8306C91F72234A3600AE5 7F 

008 CE61460F6AF81CÉO0AE3CE61461468CE6146C36E EE 

009 621EB526000AE5FO0ACEA44C3FFO04CEA44C3942 76 

010 B0B3834306E2CEDFEACE6146AD6D9E282E9842B0 BF 

011 B38306E443A8FFCEDFEACESB3EB36584CE61463A 8E 

012 68F8CACE61460F6AF8C965B1648492CE6146A86B FB 

013 F8BD6EA9O001CE25FCF8B826A36E24A3CE6146F3 DC 

014 6BFBAS8FOAA182ECE111F5AE3C90800F504CEAC4C BF 

015 1B601CE10AE599618498C810F704CE8BFC9E6EA9 64 

016 060060E36221A099859820A0CE1F24F8216716E4 75 

017 66E465E464E463E462E4E360A4F6086E8BF70456 A2 

018 89FOF46E0AE556CE071F9E B7 ( 
019 A243 








et un 
HP bien sur! 
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FORTH 


S. Vaudenay 
S. Vaudenay 


ASSEMBLEUR 


J. Elhay 


BASIC 


L. Guillou 
J. Maille 


L. Guillou 


J. Maille 
J. Maille 


LE COIN DES LHEX 


Initiation à Lisp 
Lisp en Forth 


Quelques fonctions 


Compilez vos constantes 
Calendromanie 


Programme "BUILD" 
Programme "JULIEN" 
Programme "PAQUES" 


20 
23 


32 


35 
35 


36 


38 


39 
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INITIATION A LISP 


Le langage Lisp déroute souvent par la grande 
prolifération de ses parenthèses et sa rigueur. Ce 
langage, qualifié de « langage d’un autre type » par 
Christian Queinnec, est toutefois d’une puissance que 
lon soupçonne peu au premier abord. Je vais 
aujourd’hui essayer de présenter des rudiments de 
Lisp, tout en décrivant le Lisp71 que j'ai écrit avec 
peut-être trop de rigueur. 


PRESENTATION 


Lisp est un langage qui nous dispense de toutes les 
tâches habituelles en informatique, qui sont 
fastidieuses, comme la gestion de la mémoire. 
Oserais-je dire que cette gestion est automatique ? Je 
dirai plutôt qu’elle ne se fait pas, mais que cela 
n'empêche pas les programmes de tourner. 


Lorsque l’on rencontre un problème, en Lisp, on peut 
directement passer à sa résolution, alors qu’un autre 
langage nous obligerait à déclarer des structures de 
stockage, etc. Ceci a pour conséquence la puissance 
de Lisp en intelligence artificielle, mais aussi sa 
faiblesse dans tous les problèmes de gestion de 
données. 


Une telle puissance, dans l'utilisation de Lisp, 
s'accompagne d’une rigueur, que je n’ai rencontrée 
nulle part ailleurs en informatique (même en Forth). 
Elle repose sur des règles strictes. Lisp est plus qu’un 
langage informatique, c’est un système formel, au 
sens mathématique. 


LES OBJETS LISP 


Lisp ne manipule pas de simples nombres, adresses, 
ou chaînes de caractères : il manipule des objets. 
Dans le noyau Lisp, il y a déjà des objets prédéfinis : 
ce sont les objets primitifs. On peut, à partir de 
ceux-ci, définir par récurrence d’autres objets. Ainsi, 
si Ay, À, … À, sont des objets, l'assemblage 
"(Ai À … A3)" est un objet. 


A partir de cela, on peut distinguer deux types 
d'objets : les atomes et les listes. La plupart des Lisps 
généralisent la notion de liste en s-expressions 
(abréviation courante de expressions symboliques), ou 
paires pointées, mais j'en parlerai peu ici, ce type 
d'objet étant absent dans le Lisp71. Ce que j'ai appelé 
objet primitif est un exemple d’atome, et lorsque A; … 
A. sont des atomes ou des listes (et non des 


n 
s-expressions), "(A … À,)" est une liste. 
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Une liste est associée à un car et un cdr. 
Intuitivement, une liste, au sens de Lisp, est une liste, 
au sens familier, d’objets qui sont des atomes ou des 
listes. Le car représente alors le premier objet de la 
liste, et le cdr représente la liste obtenue en enlevant 
ce premier objet. Par exemple, si A; … A, sont des 
atomes ou des listes, le car de la liste (A; … A.) est 
A,, et son cdr est (A; … A,,). 


Par convention, une /iste vide n’est pas une liste, mais 
un atome. On le représente par "()", ou par son nom : 
"NIL", Ceci montre combien la description intuitive 
des listes est mal adaptée à celle des listes de Lisp. Je 
donnerai une description mieux adaptée plus loin. 


Parmi les atomes, on distingue les identificateurs et 
les nombres. Dans le Lisp71, les nombres sont des 
entiers relatifs de 16 bits représentés dans la base 
courante du mode Forth. On a un autre type 
d’atome : le message d’erreur, bien utile pour 
l'évaluation. 


Les identificateurs peuvent représenter n’importe 
quoi. Dans le Lisp71, un identificateur est un nom 
(une chaîne ASCII), une définition (un objet), et un 
type (un objet également). Il y a cependant une 
exception : les identificateurs primitifs sont des mots 
Forth. 


STRUCTURE DES OBJETS DE LISP71 


Un objet est représenté par un mot de 20 bits, dont 
les quatre bits de poids fort décrivent le type d’objet. 
Sauf pour les entiers et les erreurs, ce mot représente 
un type et une adresse adr. 


Pour un identificateur primitif, adr est le CFA d’un 
mot Forth. 


Pour un identificateur non primitif, adr pointe ce que 
j'appelle une donnée moyenne, qui contient deux mots 
(représentant le type et la définition de l'atome), et 
un chaîne ASCII. 


Pour une s-expression, adr pointe une donnée courte, 
qui contient deux mots : le car et le cdr. Pour une 
s-expression, le car et le cdr sont des objets 
quelconques, alors que pour un liste, le car est un 
atome ou une liste, et le cdr est NIL ou une liste. Une 
s-expression de car A et de cdr B se représente par 
"(AB)". 


Ainsi, si A et B sont des atomes ou des listes, on a : 


(A.NIL) = (A) 


AH ! VOUS ECRIVEZ 


Vous vous sentez en verve, mais vous ne savez pas sous quelle forme "l’équipe de 
rédaction" souhaite recevoir votre prose. C’est ici que se trouvent les réponses à 
vos questions. 


Dans la mesure du possible, vous devez nous envoyer vos écrits sur support 
magnétique (carte, cassette ou disquette). Soyez sans crainte, nous vous 
retournerons vos biens après copie. 


Si vous ne pouvez pas utiliser de support magnétique, ou ne pouvez vous rendre 
aux réunions, alors et alors seulement faites le sur papier. 


Que ce soit sur une feuille de papier, ou sur support magnétique, ne dépassez 
pas 50 caractères par ligne. 


Pour nous épargner du travail, insérez dans votre texte les commandes de 
formattage suivantes (et non les commandes du formatteur HP) : 

"?" centre un titre, par exemple : 
"TITRE 


"\'(CHR$(92)) marque le début et la fin d’un paragraphe. Par exemple : 


\Début de paragraphe exprimant le contenu de vos idées qui, même si vous en 
doutez, intéressera certains des membres du Club. Surtout si vous vous sentez 
débutant. Les articles pour débutants écrits par des débutants sont ceux qui 
manquent le plus. Fin de paragraphe.\ 


N'oubliez pas de mettre les accents. Utilisez le jeu de caractères Romans. Les 


possesseurs de HP71 utiliseront les redéfinitions de touches ci-dessous, ainsi que 
le fichier CHARLEX listé dans le coin des Lhex. 


Jean-Jacques Dhénin (177) 


DEF KEY 'fW!, CHR$(197); (é) 
DEF KEY ‘fE', CHR$(193); (ê) 
DEF KEY 'fR', CHR$(201); (è) 
DEF KEY 'fY!, CHR$(203); çù) 
DEF KEY ‘fU', CHR$(195); çà) 
DEF KEY 'fI!, CHR$(209); (i) 
DEF KEY 'fO', CHR$(194); (ô) 
DEF KEY 'f/!, CHR$(92): (\) 
DEF KEY ‘fA!, CHR$(192); (à) 
DEF KEY !fS!, CHR$(200): (à) 
DEF KEY ‘fD'!, CHR$(205); (ë) 
DEF KEY ‘fJ!, CHR$(207); (ü) 
DEF KEY 'fK', CHR$(221); (1) 
DEF KEY 'f*1, CHR$(124); (1) 


DEF KEY 'fC!, CHR$(181); (ç) 


PPC PARIS SE REUNIT 
UNE FOIS PAR MOIS 


Comme vous le savez peut être déjà, PPC Paris se réunit une fois par mois, en 
plein coeur de Paris. Amenez votre matériel, votre bonne volonté et vos idées ! 
Plus vous en apporterez, et plus vous en trouverez chez vos collègues de PPC. 


Ces réunions se déroulent de manière très libre, aucun ordre du jour, discussion 
ou autre n'étant imposé. Un membre du bureau est toujours présent. Ainsi, si 
vous désirez remettre votre article tout frais au Journal, si vous avez des 
suggestions à faire, si vous voulez vous procurer des anciens numéros de JPC, ce 
sera en principe toujours possible. 


Si donc cela vous intéresse, n’hésitez plus un seul instant, venez nous rejoindre 
tous les premiers samedis de chaque mois (sauf en période de vacances 
scolaires) au : 


Centre de Jeunesse et de Loisirs Jean Verdier 
11 rue de Lancry 
75010 Paris 


et en montant au deuxième étage, vous entendrez des éclats de rire et des 
discussions passionnées vers la salle 215. Attention, toutefois, de venir entre 16 et 
19h. 


Pour l’accès en métro, trois possibilités s’offrent à vous : 
- Métro Strasbourg Saint Denis : 

Sortie porte St Martin / Bd St Denis, coté pairs 

- Métro République : 

Sortie Bd St Martin, coté pairs 

- Métro Jacques Bonsergent : 

Sortie Bd Magenta, coté impairs. 


Ah, j'oubliais ! JPC est (souvent) distribué en avant première lors de ces 
réunions. À bon entendeur, salut ! 


Les dates des prochaines réunions sont : 


Samedi 7 mai 1988 
Samedi 4 juin 1988 


Pierre David (37) 


NOUS EN AVONS 


La coopérative du Club vous propose : 


- de lecteurs de cartes magnétiques pour HP-71, neufs, dans leur boîte d’origine, avec 5 cartes magnétiques, 
pour 500 F (port compris), 

- des anciens numéros de JPC, au prix de 40 F + 7,40 F de frais d’affranchissement, 

- d’une année complète de numéros de JPC (février à janvier) pour 300 F (offre spéciale) port compris, 

- des I.D.S. du module Forth / Assembleur (listing interne commenté par HP) pour 250 F (port compris), 

- des VASM pour HP-41 (listings des Roms internes commenté par HP) pour 300 F (port compris), 

- de manuels de service du HP-41 au prix de 75 F (port compris), 

- de manuels de service du HP-75 au prix de 75 F (port compris). 


En outre, le module JPC Rom pour HP-71 est disponible. Vous nous adressez votre Eprom CMT (de 
préférence 64 Ko), et nous la programmons suivant une des options ci-dessous : 

- JPC Rom + Manuel, pour 600 F, 

- JPC Rom + Manuel + vos propres programmes, pour 800 F. 


Si vous souhaitez des renseignements complémentaires, n’hésitez pas à nous contacter. 





Nom : 
Prénom : 
No de membre : 
Adresse : 
Commande : 

Qté Prix Unitaire Prix Total 
Lecteur de cartes pour HP-71 x 500 FF 
anciens numéros de JPC x 47,40 FF 
année complète de JPC x 300 FF 
1.D.S. du module Forth x 250 FF 
V.A.S.M. x 300 FF 
Manuel de service pour HP-41 x 75 FF 
Manuel de service pour HP-75 x 75 FF 
JPC Rom + Manuel x 600 FF 
JPC Rom + Manuel + vos propres programmes x 800 FF 

Total FF 


Préciser éventuellement Les 
numéros de JPC commandés : 








PPC PARIS 


Association régie par la loi de 1901, enregistrée 
à Paris le 2 décembre 1982 sous le numéro 82/3240 


BULLETIN D’ADHESION 
a DA. D 28 À LR D QE PS AN AN ER A AN A A OT AR 
Prénom |_|_[_|_1_1_1_1_1_1_1_1_1_1_1_1_1_1 Date de naissance |_|_[/1_|_1/1 | | 
Adresse [LT URL Ra RUEIL RU RAA OT Re 
PE 2 LL ON A D ER A PE BACS A A DO A PA PET 
RE AT TE A TE RE AR EEE 
AE AR 100 VA JE PRO LG AN DE AR CE D BU NT A D TT 
Code Postal, | Eu ViUte pue RE NS OR RER SR ESA 
e ETES LE eee 


Profession 
Intérêts 











Matériel HP en votre possession 





Autre matériel informatique 








Comment avez-vous connu PPC Paris ? 


Que recherchez-vous au sein de PPC Paris ? 








La Loi No 78-17 du 6 janvier 1978 relative à l'informatique, aux fichiers et 
aux Libertés, garantit à toute personne justifiant de son identité un droit 
d'accès et de rectification auprès des services où organismes chargés de mettre 
en oeuvre des traitements informatiques comportant des informations nominatives 
Le concernant. 


Je souhaite adhérer au club PPC Paris conformément aux statuts de 
l'Association. Au mieux de ma connaissance, je déclare avoir Le droit de 
fournir tous Les programmes et informations que je vous enverrai (sans 
enfreindre des obligations de secret à l'égard d'autres personnes ou 
organismes) pour publication dans Le Journal de Liaison, sans obligations ni 
responsabilité d'aucune sorte (en cas d'utilisation frauduleuse) de La part des 
dirigeants de PPC-Paris. 


Date |_|_1/|_|_1/191 [I 
Signature, précédée de La mention "Lu et Approuvé!! 


Le montant de La cotisation s'élève à 350.00 F pour un an. 
Etudiants: 300.00 F (justificatif indispensable) 


Paiement effectué Le |_|_|[/|_|_|[/19]_|_| à L'ordre de PPC Paris, 
par [ ] chèque bancaire, [ ] chèque postal ou [ ] mandat lettre 


Veuillez envoyer toute correspondance à : 
PPC Paris, BP 604, 75028 Paris Cedex 01, France 


(A.(B.NIL))= (A B) 
((A.NIL).(B.NIL)) = ((A) B) 
EVALUATION 


Je vais énoncer les règles fondamentales d'évaluation. 
J'espère ne pas me tromper, ceci étant bien loin 
d’être évident. 


Le résultat de lévaluation d’un atome est sa 
définition. S’il n’en a pas (cas des atomes primitifs), le 
résultat est l’atome lui-même. Pour évaluer une 
s-expression (A.B), on évalue A sur la liste 
d'arguments B : 


- si À est un entier ou une erreur, et B n’est pas NIL, 
le résultat est un message d’erreur, mais si B est NIL, 
le résultat est A ; 


- si A est un identificateur primitif, le mot Forth est 
exécuté sur les arguments B, et retourne le résultat de 
l'évaluation ; 


- si À n’est pas un atome primitif, on évalue (AA.BB). 
Si A est une liste AA est son car, et BB son cdr. Si A 
est un atome, AA est son type, et BB sa définition. Si, 
après cette évaluation, B n’est pas NIL, le résultat 
sera une erreur, sinon, ce sera le résultat de 
l'évaluation de (AA.BB). 


Prenons un exemple. CDR est un identificateur 
primitif, Pour évaluer (CDR (A1 A2 .… An)) qui sous 
la forme de s-expression, est (CDR ((AI A2 … 
An).NIL)), donc A=CDR et B=((A1 A2 
An).NIL), et CDR étant un identificateur primitif, le 
mot Forth CDRp est exécuté sur ((A1 . An).NIL). 


L'EDITEUR LISP 


L'éditeur demande une chaîne de caractères devant 
représenter une liste ou un atome, avec les 
conventions usuelles : les listes commencent par "(", 
comportent une liste (au sens familier) d’objets 
séparés par des espaces, et finissent par “)" ; et les 
atomes sont représentés par leur nom. 


Cette chaîne étant entrée, et validée, l'éditeur évalue 
la chaîne, et retourne le résultat. C’est tout ! 


Pour se lancer dans les exemples, il est temps de 
parler de la primitive QUOTE : QUOTE demande 
un argument B, et retourne B ! A quoi peut bien donc 
servir un programme aussi bête ? Voici un exemple : 
supposons que nous voulions déterminer le car de la 
liste "(+ 1 2 3)". Si l’on tapait (CAR (+ 1 2 3)), la 
primitive CAR évaluerait l'argument (+ 1 2 3), qui 
vaut 6, comme nous le verrons, et calculerait le car de 


l'atome 6, qui se:solderait par une erreur, puisque 6 
n’est pas une s-expression. Si l’on tape (CAR 
(QUOTE (+ 1 2 3))), CAR évalue (QUOTE (+ 12 
3)) qui donne,(+.1 2 3), et calcule son car, qui est 
"+": (CAR (QUOTE (+ 123))) donne +. 


Notons tout de suite une convention d'écriture : 
QUOTE revenant souvent, au lieu d'écrire (QUOTE 
objet), on écrit ‘objet. Ainsi, (CAR ’(+ 12,3)) donne 
+. Autre exemple: (CDR ’(+ 1 2 3)) donne (1 2 3). 
Nous pouvons maintenant décrire les primitives. 


PRIMITIVES 


CAR et CDR opèrent sur un seul argument. Ces 
primitives évaluent cet argument et retournent son 
car ou son cdr. 


CONS opère sur deux arguments, qui sont évalués. 
CONS retourne une liste formée à partir de ces 
arguments. Par exemple, (CONS (123) ’(456)) 
donne ((123)456). (CONS 1 NIL) donne (1). 
(CONS (CAR (CDR *(1 2 3))) (CDR ‘(12 3))) donne 
(223). Note : CONSp ne marche pas si l’on enchaîne 


des CONS (bug à corriger). 


QUOTE opère sur un seul argument qu’il n'évalue 
pas, et qu’il retourne. 


EVAL opère sur un argument qu’il évalue deux fois 
et qu’il retourne, 


+, -, *, et / opèrent sur au moins un entier et 
retournent le résultat de l'opération. Par exemple, 
(+123) donne 6. (* (+ 23) 4(-102)) donne 160. 
(/ 520) donne "/zero" (le résultat de l'évaluation est 
un message d'erreur). Si l’un des arguments est un 
message d’erreur, le résultat est ce message. Si lun 
des arguments n’est pas représentable par un entier, 
le résultat est un message d’erreur. 


PLUSP, MINUSP, ZEROP sont des prédicats 
opérant sur un entier. Ils testent si cet entier est 
positif, négatif, ou nul. Comme tous les prédicats, leur 
résultat est NIL pour faux, et T pour vrai. 


<, <, =, et /= sont des prédicats opérant sur une 
liste. d’entiers. Ils testent si la liste est croissante, 
décroissante, si les entiers sont tous égaux, ou tous 
différents. 


ATOM et NUMBERP sont des prédicats opérant sur 
un argument. Ils testent si cet argument est un atome, 


ou si c’est un entier. 


Nous allons voir DEFVAR, DEFUN, LAMBDA, 
SETO, PSETQ. 
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DECLARATION DE VARIABLES 


Lorsque Fon fait référence à un nouvel atome, dans 
une liste à évaluer, un atome portant ce nom, de type 
et de définition NIL est créé. A partir de ce moment, 
cet atome existe et a une adresse. On peut le laisser 
sans définition ni type, si ce n’est pas nécessaire, 
comme pour évaluer (CAR ’(TOTO TATA TITI)) 
qui ne demande pas d’évaluer ni TOTO), ni TATA, ni 
TITI. 


Pour créer une variable, il faut donner à cet atome le 
type GLOBAL. C'est le rôle de la primitive 
DEFVAR. 


Par exemple (DEFVAR TOTO) donne le type global 
à TOTO (qui n’est pas évalué). Si TOTO a déjà un 
type, autre que NIL, une erreur se produit. 


Il faut bien noter que ce n’est pas DEFVAR qui crée 
Patome TOTO, puisque celui-ci existe déjà lorsque 
Lisp se rend compte qu'il va falloir exécuter 
DEFVAR , et qu'il a le type NIL. 


DEFVAR permet également de donner une 
définition en même temps que le type GLOBAL. 
Exemple : (DEFVAR UN 1) définit la variable UN 
avec la valeur initiale 1. Pour modifier le contenu des 
variables, on se sert de SETQ et PSETQ. 


(SETQ var, val; var, val,… var, val) donne 
séquentiellement la valeur val; (évaluée) à la variable 
var; (non évaluée). 
(PSETOQ var, val, var, val,… var, val) donne 
simultanément la valeur val; (évaluée) à la variable 
var; (non évaluée). 


Exemple : les variables A, B et C étant déclarées, 


(SETQOA(+1)B(+11)C(+111)) donne 3, ct a 
mis 1 dans À, 2 dans B et 3 dans C. 


A donne 1 
B donne 2 
C donne 3 


(SETO A BB A) donne 2, et a mis 2 (B) dans À, puis 
2 (A) dans B : 


A donne 2 
B donne 2 


(SETO A 1) remet 1 dans A. 


(PSETQ A B B A) donne 1, et a mis 2 (B) dans A, et 
1 (A) dans B: 
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A donne 2 
B donne 1 


DECLARATION DE FONCTIONS 


Pour créer une fonction, il faut donner le type 
FUNCTION à un atome, et on est obligé de le définir 
en même temps par une syntaxe particulière : 


(DEFUN nom ( arguments } corps) 


Exemple : pour définir la fonction +1 qui opère sur 
un entier et lui ajoute 1, il faut écrire : 


(DEFUN +1 (N) (+ N 1)) qui donne +1. 
Alors, 


(+1 5) donne 6 
(+1 12) donne "Parameter Mismatch" 


+1 se sert d’un atome de type LOCAL de nom N. 
Dans ce Lisp71, la notion d’environnement local est 
absente, et un seul atome peut porter le nom N. 
Cependant, les variables locales ont une structure 
particulière car l'exécution de +1 avec un argument 
(5 par exemple) va “empiler" 5 quelque part, et 
l'évaluation de N donnera 5. +1 évalué, la valeur 5 est 
dépilée. C’est la primitive LAMBDA qui effectue ces 
opérations (si vous évaluez l'atome +1, la machine 
retourne sa définition (LAMBDA (N) (+ N 1))). 


En fait, le type de N est un atome sans nom, qui lui, 
porte le type LOCAL. La définition de cet atome est 
une liste des valeurs de N dans les différents 
environnements, et la définition de N est sa valeur 
courante. ((LAMBDA (N) … } 5) ajoute 5 à la liste 
des valeurs de N, et donne la valeur 5 à N, et (+ N 1) 
évalué, 5 est retiré de la liste, et N reprend sa valeur 
initiale, l’exécution de ((LAMBDA (N) (+ N 1)) 5) 
retourne 6. 


Je pense que les évaluateurs qui vont regarder si le 
car du car de la liste à évaluer est LAMBDA ne sont 
pas de bons évaluateurs, car il n’y a pas de raison 
pour privilégier une primitive LAMBDA devant une 
autre, et mettre une telle "rustine" dans un évaluateur. 
C'est lévaluateur l’élément le plus intéressant de 
Lisp. Il doit être aussi simple que possible. Le mien 
est déjà trop compliqué. On doit pouvoir simplifier 
Lisp71, ce qui l’accélérera par la même occasion. 


Comme le message d’entrée en Lisp l'indique, ce que 
je vous présente est une version 1.1 : je l’ai écrite du 
début à la fin en effectuant quelques corrections. Une 
révision devrait le rendre plus présentable. 


Serge Vaudenay (124) 





LISP EN FORTH 


J'ai découvert Lisp depuis peu, et je me suis soudain 
trouvé en manque d’un tel langage sur le matériel que 
j'utilise. J’ai donc profité des vacances de fin d’année 
pour faire une première version du sv Lisp. 


Ce Lisp est écrit en Forth, et est donc assez lent. 
Cependant, les mots Forth devraient progressivement 
se transformer en primitives. Il serait bon 
d'entreprendre un travail collectif sur se sujet, car je 
suis persuadé qu’un langage tel le Lisp, c’est à dire 
très axiomatique, et qui fait appel à la logique, aux 
mathématiques, mais également à des disciplines 
fréquemment utilisées en intelligence artificielle telles 
la linguistique, la psychologie... soulève beaucoup plus 
de problèmes que la simple programmation sur un 
ordinateur. 


Le Lisp que je vous propose est une vision 
personnelle du Lisp. L’un des grands principes du 
Lisp étant la transparence des mécanismes internes, 
cette vision personnelle ne devrait pas se voir à 
l'utilisation. J’ai essayé de respecter les conventions 
de Common Lisp exposées par Sheila Hughes dans 
son Computer Handbook, mais j'ai dû introduire une 
notion nouvelle en Lisp : celle de type... 


Je ne m’étendrai pas sur ce sujet aujourd’hui, je vais 
simplement décrire l'installation du Lisp. 


Le fichier source, pour des raisons techniques, est 
scindé en quatre parties, dont les trois premières font 
environ 4 Ko : LISP1, LISP2, LISP3, et LISP4. Avant 
de les charger avec LOADF, réservez au moins 9 Ko 
pour le fichier FORTHRAM à l’aide de Grow. Si une 
erreur se produit au cours du chargement de LISP3 
par exemple, pour reprendre le chargement, faites : 
FORGET LISP3 " LISP3! LOADF 

cela évite d’avoir à recharger LISP1 et LISP2. 


Le programme chargé, il est déconseillé de modifier 
le fichier FORTHRAM tant que le fichier travail du 
Lisp sera présent. Pour lancer le Lisp, écrivez LISP 
tout simplement en mode Forth. Si ce n’est déjà fait, 
Lisp créera un fichier LISPRAM de type 2 de 1 Ko 
que vous ne pourrez qu’effacer. 


Entrée dans le Lisp, votre machine affiche un 
message de présentation. Vous pouvez alors évaluer 
des objets Lisp. Il est déconseillé de sortir 
brutalement du mode Lisp ; en général, cela ne peut 
se produire, mais si à la suite d’un bug (affichage d’un 
message d'erreur en Forth, ou d’un message non 
standard destiné au débugage), ou à la suite d’une 
extinction de la machine, vous vous retrouviez en 
Forth, revenez en Lisp à l’aide de 60. Pour sortir du 
Lisp, utilisez la primitive 8YE (tapez (BYE). 


Les primitives Lisp sont en majuscule. Voici leur 
liste : (NIL BYE + - * / ATOM EQ NOT AND OR PLUSP 
MINUSP ZEROP NUMBERP < > = /= QUOTE EVAL CAR CDR 
CONS DEFVAR SETQ PSETQ LAMBDA DEFUN). Les objets Lisp 
traités par ce programme sont uniquement les listes 
et les atomes. Parmi ces atomes, on distingue les 
atomes primitifs et ceux définis par lutilisateur. Parmi 
les atomes primitifs, on retrouve les primitives 
énoncées ci-dessus, ainsi que les entiers (écrits dans la 
base courante du Forth) de 20 bits, et les messages 
standards. 


Ainsi, la liste (/ 10) a pour valeur le message 
standard /Zero. 


Les atomes non primitifs sont automatiquement 
créés. Ainsi, si dans une liste telle 
(QUOTE (CHOUCROUTE RAVIOLI)), vous faites référence à 
des atomes inconnus, ils sont créés et codés... Le type 
NIL leur est assigné, si bien que leur évaluation ne fait 
rien de spécial. Dans une liste comme (DEFVAR UN 1), 
un est d’abord créé, et l'évaluation de la liste attribue 
le type variable globale à UN, qui prend la valeur 1. Il 
existe également les types variable locale, et fonction, 
utilisés par LAMBDA et DEFUN. 


Ce sera tout pour aujourd’hui. J'attend vos remarques 
sur cette version du Lisp. 


Serge Vaudenay (124) 
Fichier LISP1 : 
DECIMAL .( ..lispl..) 
: LISP1 ; 


8 STRING FIC-TRAVAIL 
O CONSTANT DD 
O CONSTANT FD 
VARIABLE CDO 
VARIABLE MDO 
VARIABLE LDO 


: INIT 
FIC-TRAVAIL FINDF 
DUP 0= ABORT'" pas trouve! 
DUP 52 + [ ‘ DD 5+ ] LITERAL ! 
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DUP 32 + DUP @ + 1- [ ! FD 5+ ] LITERAL ! DUP >R >R ROT 1+ OVER N! 


37 + DUP à CDO ! 2DUP 1+ ! 2DUP + R> 4 ROLL - R> 
5+ DUP à MDO ! 5+ @ LDO ! IF 
; DUP 5 > 
IF 
: FIN 6 3 PICK N! SWAP 1+ ! 
FIC-TRAVAIL FINDF 37 + ELSE 
CDO à OVER ! DUP 
5+ MDO à OVER ! IF 
5+ LDO à SWAP ! SWAP N! 
; ELSE 2DROP 
THEN 
5 LISPT THEN 
FIC-TRAVAIL SI! ELSE 
FIC-TRAVAIL FINDF DROP O SWAP N! 
0= THEN 


IF ; 
FIC-TRAVAIL 2000 CREATEF 
DUP 0= ABORT'' peut pas! : CR-MD 
DUP 16 + 1 SWAP +1! 9 SWAP MDO @ DD + CH-PLACE CR-D DUP DD - MDO ! 
37 + O OVER ! 5+ 0 
OVER ! 5+ O OVER ! 5+ O SWAP N! 


. 


THEN : CR-LD 
INIT 11 SWAP LDO à DD + CH-PLACE CR-D DUP DD - LDO ! 
î ï 
: CR-CD 
: TAILLE 7 11 CDO à DD + CH-PLACE CR-D DUP DD - CDO ! 
DUP N@ DUP , 
CASE 
8 OF 2DROP O 11 ENDOF : “ADR 
7 OF 2DROP 1 11 ENDOF 65536 /MOD 
0 OF 1- FD ROT - ENDOF CASE 
15 OF 2DROP O0 11 ENDOF 6 < 0 OF DD + ENDOF 
0 OF 2 MOD SWAP 1+ à ENDOF 1 OF DD + ENDOF 
DROP 1 SWAP ROT 6 OF 195325 + ENDOF 
ENDCASE 7 OF 195325 + ENDOF 
, 1 ABORT'! pas d'adresse" 
: CH-FIN ENDCASE 
CDO à MDO @ LDO à MAX MAX DD + e 
BEGIN 
DUP TAILLE ROT + O CONSTANT 'AFFICHE 
SWAP 1+ O CONSTANT mNIL 
0= 
UNTIL : ADR. 
. DUP Na DUP 
: CH-PLACE 15 = 
BEGIN IF DROP 8 THEN 
DUP NQ 4 PICK <> CASE 
OVER TAILLE SWAP 1+ 8 OF 
OVER 6 PICK < 40 EMIT 
& ROLL OR OVER AND BEGIN 
WHILE 1+ DUP Q 
DROP + "AFFICHE EXECUTE: 
REPEAT 5+ @ DUP mNIL <> 
OVER 5 PICK < ABORT'! plus de place" WHILE 
el." -ADR SPACE 
: REPEAT 
: CR-D DROP 41 EMIT 
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ENDOF 
10 OF 16 + COUNT TYPE ENDOF 
1 ABORT! non affichable!! 
ENDCASE 


AFFICHE 
65536 /MOD 
CASE 
O0 OF DD + ADR. ENDOF 
1 OF DD + ADR. ENDOF 
4 OF 
DUP 32768 AND 
30 * + DUP ABS 0 
<# #S ROT SIGN #> 
TYPE 
ENDOF 
5 OF ! MSGS(FORTHI)" BASIC$ TYPE ENDOF 
6 OF 195325 + ADR. ENDOF 
7 OF 
195325 + 2- -1 
TRAVERSE COUNT 31 AND 
1- TYPE 
ENDOF 
ABORT'! mot inconnu! 
ENDCASE 


AFFICHE ! ‘AFFICHE 5+ ! 


: CR-ATOME 
DUP 2* 18 + CR-MD mNIL OVER 6 + ! 
mNIL OVER 11 + ! 
DUP 2SWAP ROT 16 + 2DUP CI 2+ SMOVE DD - 


29 CONSTANT NPRIM 
CREATE PRIMITIVES NPRIM 5 * NALLOT 


PRIM 
1 2- -1 TRAVERSE PRIMITIVES ROT 5 * + ! 


: CH-ATOME 
1 NPRIM 5 * PRIMITIVES + PRIMITIVES 
DO 
DROP 2DUP 
1 a 
COUNT 31 AND 1- S= 
IF 
I @ 1 TRAVERSE 263429 + 0 
LEAVE 
THEN 
D 
+LOOP 
IF 
DD 0 
BEGIN 


DROP DUP N@ 10 = OVER DUP TAILLE ROT + SWAP 1+ 0= 


IF 
2DROP DD 1 - DUP 
ELSE 
ROT ROT 
IF 
DUP 16 + COUNT 6 PICK 6 PICK S= 
ELSE 
0 
THEN 
THEN 
UNTIL DD - SWAP DROP 
THEN 
>R 2DROP R> 


CHR-ATOME 
2DUP CH-ATOME DUP 1+ 
IF 
ROT ROT 2DROP 
ELSE 
DROP CR-ATOME 
THEN 


PARENTHESE 
DROP DUP 0 


BEGIN 
OVER Ca 
CASE 
40 OF 1+ ENDOF 
41 OF 1- ENDOF 
ENDCASE 
SWAP 2+ SWAP DUP 0= 
UNTIL 
DROP OVER - 2/ 


: PREMIER 


OVER Ca 
CASE 
40 OF PARENTHESE ENDOF 
BL OF DROP O ENDOF 
DROP OVER DUP >R >R 2* + R> 
BEGIN 
2+ DUP Ca 
CASE 
BL OF 1 ENDOF 
40 OF 1 ENDOF 
41 OF 1 ENDOF 
OVER 4 PICK = SWAP 
ENDCASE 
UNTIL 
R> SWAP OVER - 2/ ROT 
ENDCASE 
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: BLANCS 

BEGIN 

OVER Ca BL = OVER AND 
WHILE 

1- SWAP 2+ SWAP 
REPEAT 
BEGIN 

2DUP 1- 2* + Ca BL = OVER AND 
WHILE 

1- 
REPEAT 


NOMBRE 
OVER Ca 45 = 
IF 
DUP 1- 
IF 
1- SWAP 2+ SWAP -1 
ELSE 
1 
THEN 
ELSE 
1 
THEN 
ROT ROT -1 SWAP O DUP >R 
DO 
OVER 1 2* + CQ DUP 47 > OVER 58 < AND SWAP OVER 
IF 7 + THEN 
DUP 64 > OVER 91 < AND SWAP 55 - 
BASE à J OVER * 
3 PICK + R> R> R> 
DROP 3 PICK >R >R 
>R -65536 AND 0= >R < >R OR R> R> AND AND AND 
LOOP 
SWAP DROP SWAP R> * SWAP 


Fichier LISP2 : 


«at: sLIS8p2.) 


: LISP2 ; 


: 1D-ATOME 
2DUP NOMBRE 
IF 
65535 AND 262144 + ROT ROT 2DROP 
ELSE 
DROP CHR-ATOME 
THEN 


CR-LISTE 

[ SMUDGE ] 
OVER Ca 40 <> 
IF 


ID-ATOME 
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0 


ELSE 
2- SWAP 2+ SWAP BLANCS 
DUP 
IF 
2DUP PREMIER 2DUP >R >R SWAP DROP DUP >R - 
SUAP R> 2* + SWAP R> R> CR-LISTE ROT ROT 2+ 
SUWAP 2- 40 OVER C! SWAP 2DUP 2* + 41 
SWAP 2- C1 CR-LISTE CR-CD SWAP OVER 6 + ! 
SWAP OVER 1+ ! DD - 
ELSE 
2DROP mNIL 
THEN 
THEN 
[ SMUDGE ] 


EFFACE 
DUP @ 3 PICK DD - MIN SWAP ! 
DUP Na 1- SWAP N! 


EF-LISTE 
[ SMUDGE ] 
65536 /MOD 0= OVER DD + Na 8 = AND 
IF 
DD + DUP CDO EFFACE 1+ DUP à 
SWAP 5+ à 
EF-LISTE EF-LISTE 
ELSE 
DROP 
THEN 
[ SMUDGE ] 


ENTITE 
SWAP mNIL <> 
IF DROP 327755 THEN 


CONSTANT !EVALUE 


SEC? 
65536 / 1 = 


: SEC 


DUP 65536 / 0= 
IF 65536 + THEN 


: CDAR 


DUP SEC? SWAP -ADR DUP 6 + @ 3 PICK 
IF SEC THEN 

SWAP 1+ à ROT 

IF SEC THEN 


-. 


LE 


ADR 
DUP Na DUP 15 = 
IF DROP 8 THEN 
CASE 

8 OF DROP CDAR ENDOF 

10 OF 6 + à ENDOF 

1 ABORT" non evaluable!! 
ENDCASE 
"EVALUE EXECUTE ENTITE 


EVALUE 

DUP 65536 /MOD 

CASE 
0 OF DD + ADR ENDOF 
1 OF DD + ADR ENDOF 
& OF DROP ENTITE ENDOF 
5 OF DROP ENTITE ENDOF 
6 OF 195325 + ADR ENDOF 
7 OF SWAP DROP 195325 + EXECUTE ENDOF 
ABORT'!' mot inconnu! 

ENDCASE 


EVALUE ! 'EVALUE 5+ ! 


ATOM 
DUP 65536 / DUP 7 = SWAP 2/ 2 = OR 
IF 
DROP -1 
ELSE 
-ADR Na 10 = 
THEN 


ADEF 

DUP 65536 / 

CASE 
O OF -ADR 11 + à ENDOF 
1 OF -ADR 11 + à ENDOF 
6 OF -ADR 11 + à ENDOF 

ENDCASE 


EXE 
mNIL OVER DUP ATOM 0= 
IF 
CDAR EVALUE 
ELSE 
ADEF 
THEN 
ROT EF-LISTE SWAP DROP 


STRING ftrum ou ou min SI 


: QUOTAGE 
BEGIN . 
min 2OVER POS DUP 
WHILE 
>R 2DUP R> DUP >R DUP >R 2* ROT + 
SWAP R> - 2DUP DUP 
IF PREMIER THEN 
2SWAP 3 PICK - SWAP 3 PICK 2* + 
SWAP 2SWAP 6 ROLL 6 ROLL R> 1- LEFT$ 
M FORTH$&! (QUOTE &FORTHS&!)'&FORTHS" BASICS 
REPEAT 
DROP 


: PAR 
0 OVER 0 
DO 
3 PICK 1 2* + Ca 
CASE 
40 OF 1+ ENDOF 
41 OF 1- ENDOF 
ENDCASE 
DUP 0< 
IF LEAVE THEN 
LOOP 


FERME 
PAR DUP O> 
IF 
0 
DO 
nn S<& 
LOOP 
0 
THEN 


C0 


100 STRING LTIB 


: ENTRE 
LTIB DROP EXPECT96 SPAN à DUP 
IF 
LTIB DROP 2- C! LTIB FERME 
IF 
327760 -1 
ELSE 


QUOTAGE BLANCS 2DUP 2DUP PREMIER 
ROT <> >R <> R> OR 
IF 
DROP 327719 -1 
ELSE 
0 
THEN 
THEN 
ELSE 
mNIL -1 


JPC 54 Page 27 











THEN 


: EDITÉ 
BEGIN 
ENTRE 
IF 
." }" AFFICHE DROP 
ELSE 
CR-LISTE EXE ." }" DUP AFFICHE EF-LISTE 
THEN 
CR 0 
UNTIL 


: BYEp 
O ONERR ! FIN DROP 2DROP ." ... QUIT 
; 1 PRIM BYEp 


: GO 
." sv LISP v1.1" CR EDITE 


s LISP 
" LISPRAM! LISPT GO 


s LIST- 
0 
BEGIN 
OVER mNIL <> 
WHILE 
1+ SWAP CDAR SWAP ROT 
REPEAT 
SUWAP DROP 


sAALIST 
mNIL SWAP 0 
DO 
CR-CD SWAP OVER 6 + ! 
SWAP OVER 1+ ! DD - 
LOOP 


NDROP 
DUP 1+ 0 
DO 

DROP 
LOOP 


: AEXE 
0 
BEGIN 
OVER mNIL <> 
WHILE 
1+ SWAP CDAR EXE SWAP ROT 
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REPEAT 
SWAP DROP 


: ARG 
OVER <> 
IF NDROP R> DROP 327716 THEN 


ERR 
DUP 0 
DO 
I 2+ PICK 65536 / 5 = 
IF 
1 2+ PICK >R NDROP R> R> R> R> 
DROP >R >R LEAVE 
THEN 
LOOP 


OARG 
mNIL <> 
IF R> DROP 327716 THEN 


: NUM 
65536 /4= 


LIST 
DUP ATOM O= SWAP mNIL = OR 


NUMS 
DUP 0 
DO 
DUP 1+ ROLL 65536 /MOD 4 <> 
IF 
SWAP NDROP R> R> R> DROP >R >R 327711 LEAVE 
THEN 
DUP 32768 AND 30 * + SWAP 
LOOP 


.. 


: NILp 
OARG mNIL 


1 NILp 263427 + ! mNIL 5+ ! O PRIM NILp 
HERE 160 C, 20 , mNIL , 0 , 1C, & c, 
197892 + CONSTANT mT 


: NOARG 
DUP 0= 
IF R> 2DROP 327716 THEN 


: +p 
AEXE NOARG ERR NUMS O SWAP 0 
DO 
É 
LOOP 
65535 AND 262144 + 
; 2 PRIM +p 


5 “P 
AEXE NOARG ERR NUMS O0 OVER 2+ ROLL ROT 0 
DO 
SWAP - 
LOOP 
65535 AND 262144 + 
3 3 PRIM -p 


2 *p 
AEXE NOARG ERR NUMS 1 SWAP 0 
DO 
* 
LOOP 
65535 AND 262144 + 
5 & PRIM *p 


Fichier LISP3 : 
°C s.Li8p3..) 
: LISP3 : 


42 
AEXE NOARG ERR NUMS 1 OVER 2+ ROLL 1 4 ROLL 
DO 
SWAP DUP 
IF 
ELSE DROP I NDROP 327688 LEAVE 
THEN 
-1 
+LOOP 
DUP 327688 <> 
IF 
65535 AND 262144 + 
THEN 
5 PRIM /p 


. 


: PREDICAT 
IF mT 
ELSE mNIL 
THEN 


ATOMp 
LIST- 1 ARG DROP EXE ATOM PREDICAT 
6 PRIM ATOMp 


LE 


: EQp 
AEXE NOARG OVER -1 ROT 0 
DO 


>R OVER = R> AND 
LOOP 

PREDICAT SWAP DROP 
7 PRIM EQp 


NOTp 
LIST- 1 ARG DROP EXE mNIL = PREDICAT 
8 PRIM NOT 


ANDp 
AEXE NOARG -1 SWAP 0 
Do 

SAP mNIL = 0= AND 
LOOP 
PREDICAT 
9 PRIM ANDP 


ORP 
AEXE NOARG O SWAP 0 
DO 

SWAP mNIL = 0= OR 
LOOP 
PREDICAT 
10 PRIM ORp 


PLUSPp 
AEXE 1 ARG ERR NUMS DROP 0> PREDICAT 
11 PRIM PLUSPp 


MINUSPp 
AEXE 1 ARG ERR NUMS DROP 0< PREDICAT 
12 PRIM MINUSPP 


: ZEROPP 


AEXE 1 ARG ERR NUMS DROP 0= PREDICAT 


: 13 PRIM ZEROPP 


: NUMBERPP 


_ 


LIST- 1 ARG DROP EXE NUM PREDICAT 
14 PRIM NUMBERPp 


: >p 


<p 
AEXE NOARG ERR NUMS 65536 -1 ROT 0 
DO 
>R OVER > R> AND 
LOOP 
SWAP DROP PREDICAT 
15 PRIM <p 
AEXE NOARG ERR NUMS -65536 -1 ROT 0 
DO 
>R OVER < R> AND 
LOOP 
SWAP DROP PREDICAT 
16 PRIM >p 
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î =P 
AEXE NOARG ERR NUMS OVER -1 ROT 0 
DO | 
>R OVER = R> AND 
LOOP 
SWAP DROP PREDICAT 
3 17 PRIM =p 
5 /=p 
AEXE NOARG ERR NUMS -1 OVER O0 
DO 
OVER 1- DUP 
IF 
0 
DO 
1 4 + PICK 4 PICK <> AND 
LOOP 
ELSE DROP 
THEN 
ROT DROP >R 1- R> 
LOOP 
SWAP DROP PREDICAT 
: 18 PRIM /=p 
: QUOTEp 


DUP LIST- 1+ 2 ARG DROP DUP SEC 3 PICK -ADR 1+ ! 
SWAP SEC? 
IF SEC THEN 

; 19 PRIM QUOTEP 


EVALP 
LIST- 1 ARG DROP EXE EXE 
; 20 PRIM EVALp 


: CARP 
AEXE 1 ARG ERR DROP DUP ATOM 
IF mNIL = 
IF mNIL ELSE 327711 THEN 
ELSE 
DUP -ADR 1+ DUP à DUP SEC ROT ! 
OVER EF-LISTE SWAP SEC? IF SEC THEN 
THEN 
21 PRIM CARp 


_ 


: CDRp 
AEXE 1 ARG ERR DROP DUP ATOM 
IF mNIL = 
IF mNIL ELSE 327711 THEN 
ELSE 
DUP -ADR 6 + DUP à DUP SEC ROT ! OVER 
EF-LISTE SWAP SEC? IF SEC THEN 
THEN 
; 22 PRIM CDRp 


: CONSp 
AEXE 2 ARG ERR DROP CR-CD SWAP OVER 6 + ! SWAP 
OVER 1+ ! DD - 

; 23 PRIM CONSp 
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. 


. 


GLOBALt 
- ADR 11 + Q 
! GLOBAL 263427 + CONSTANT mGLOBAL 


SETVAR 
DUP 131072 / 
IF 
2DROP 2DROP 327740 


ELSE 
-ADR DUP NQ 10 <> 
IF 
2DROP 2DROP 327691 
ELSE 
DUP 6 + à mNIL <> 5 PICK = 
1F 
2DROP 2DROP 327763 
ELSE 
ROT 4 ROLL 
IF OVER 6 + ! ELSE DROP THEN 
11 + SWAP SEC DUP ROT ! 
THEN 
THEN 
THEN 
DEFVARp 


LIST- NOARG DUP 1 = 

IF DROP mNIL 2 THEN 

2 ARG DROP EXE -1 SWAP ROT mGLOBAL ROT ROT SETVAR 
24 PRIM DEFVARp 


SETQp 
LIST- NOARG DUP 2 MOD 
IF 
NDROP 327720 
ELSE 
0 OVER 2/ O0 
DO 
DROP 2- O OVER 4 + ROLL DUP 4 PICK 
5+ ROLL EXE SWAP SETVAR 
LOOP 
SWAP DROP 
THEN 
25 PRIM SETQp 


PSETQp 
LIST- NOARG DUP 2 MOD 
IF 
NDROP 327720 
ELSE 
DUP 2/ 0 
DO 
DUP 1+ ROLL SWAP DUP 1+ ROLL EXE SWAP 
LOOP 
0 OVER 2/ 0 
DO 
DROP 2- O OVER 4 + ROLL DUP 
4 PICK 5+ ROLL SWAP SETVAR 


. 


.. 


LOOP 

SWAP DROP 
THEN 
26 PRIM PSETQp 


LOCALt 
DROP -ADR 11 + à mNIL SWAP 
! LOCALt 263427 + CONSTANT mLOCAL 


ASN 

SWAP -ADR 6 + DUP @ 3 PICK ROT 5+ ! -ADR 11 + 
DUP @ CR-CD SWAP OVER 6 + ! ROT OVER 1+ ! DD - 
SEC SWAP ! 


LOCAL 
DUP ATOM OVER 131072 / O= AND 
IF 
-ADR 6 + DUP @ DUP mNIL <> 
IF 
DUP ATOM SWAP -ADR 6 + @ mLOCAL = 
AND SWAP DROP 
ELSE 
DROP NULL$ CR-ATOME mLOCAL 
OVER -ADR 6 + ! SWAP ! -1 
THEN 
ELSE DROP 0 
THEN 


NASN 
DUP 
IF 
1 SWAP 
DO 
I 2* ROLL I 1+ ROLL OVER LOCAL 0= 
IF 1 2* 1+ NDROP 327740 LEAVE THEN 
EXE ASN -1 
+LOOP 
ELSE DROP 
THEN 


POP 

-ADR 6 + DUP @ -ADR 11 + DUP @ -ADR DUP CDO 
EFFACE 6 + à DUP ROT ! DUP mNIL <> 

IF -ADR 1+ à THEN 

SWAP 5+ ! 


NPOP 
DUP 
IF 
0 
DO 
DUP LOCAL 
IF POP ELSE DROP THEN 
LOOP 


ELSE DROP 


THEN 
; 
: LAMBDAp 
LIST- 2 ARG ERR DROP OVER DUP ATOM 
1F 
2DROP 2DROP mNIL 327711 
ELSE 
LIST- DUP 4 + ROLL LIST- DUP 2+ ROLL 2DUP <> 
1F 
+ 2+ NDROP 327716 
ELSE 
DROP NASN EXE SWAP LIST- NPOP 
THEN 
mNIL SWAP 
THEN 


: 27 PRIM LAMBDAp 


: FUNCTIONt 
-ADR 11 + @ EVALUE mNIL SWAP 
; ‘ FUNCTIONt 263427 + CONSTANT mFUNCTION 


Fichier LISPA : 


.C ..Lispé..) 


: LISP4 ; 


: DEFUNp 
DUP LIST- 1+ 4 ARG ERR DROP 2DROP CR-CD ROT 
-ADR 6 + DUP à mNIL ROT ! OVER 6 + ! 
LU ‘ LAMBDAp 263427 + ] LITERAL 
OVER 1+ ! DD - -1 mFUNCTION ROT 4 PICK SETVAR 
DUP 65536 / 5 = 
1F SWAP THEN 
DROP 
: 28 PRIM DEFUNp 





Demandez -nous 
La Lunel 
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QUELQUES FONCTIONS 


Et voici pour terminer la série, ce Lex qui contient 
quelques fonctions utiles. En voici la liste : 


Ordre ELSTR 
syntaxe : ELSTR [ chaîne ] 


Cet ordre prend la chaîne de trois caractères fournie 
en paramètre, ou la chaîne CR/LF/LF par défaut, et la 
met à la place de la chaîne définie par ENDLINE. 


Fonction EL 
syntaxe : EL (2 ),0<ns<2 


Cette fonction force la longueur de la chaîne définie 
par ENDLINE et retourne le nombre de caractères avant 
modification. 


Fonction INT$ 
syntaxe : INT$ ( 71 ) 


Cette fonction est analogue à STR$, mais force le 
format d’affichage à st) au préalable. Ceci permet 
d’avoir des nombres toujours bien formattés dans les 
chaînes de caractères. 


Fonction MDIM 


syntaxe : MIMCX,721) Où MDIMCXS,71) 
Où X et X$ est une matrice, un vecteur ou un tableau 


alphanumérique, et 7 est un entier compris entre 0 et 
2 


Cette fonction renvoie, si : 
ñn = 0: la limite inférieure 
n = 1:la première dimension 
n = 2: la deuxième dimension 


Il 


Jack Elhay 

LEX  'MISCLEX! 

ID #5C 

MSG 0 

POLL O0 
STRGCK EQU  #036BA chaîne valide ? 
EOLCK EQU  #O02A7E fin de Ligne ? 
RESPTR EQU  #03172 si trop loin dans La parse 
DROPDC EQU  #05470 routine de décompilation 
POP1S EQU  #0BD38 dépile une chaîne 
EXPEXC EQU  #0F186 évalue une expr. D1 = M.S. 
EOLSTR EQU  #2F95B adresse de La chaîne ENDLINE 
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sortie des ordres 

dépile en hexa dans A(A) 
Data type ! beeeep 

Invalid Arg ! beeeep 
adresse longueur de ENDLINE 
retour pour Les fonctions 
multiplie 2 nb hexa 

hex -> flottant 

retour pour les fonctions 
version interne de STR$ 
display format 

octet A(B) dans un ensemble ? 


ordre 
fonction 
fonction 


fonction 


ELSTR [ CHR$SCN1)&CHRS(N2)8CHRS(N3) ] 


NXTSTM EQU  #08A48 
RNDAHX EQU  #136CB 
RDATTY EQU  #17CC6 
ARGERR EQU  #0BF19 
EOLLEN EQU  #2F95A 
FNRTN1 EQU  #0F216 
A-MULT EQU  #1B349 
HDFLT EQU  #1B31B 
EXPR  EQU  #0F23C 
STR$SB EQU  #18149 
DSPFLG EQU  #2F6DC 
MEMBER EQU  #1B098 
POPIR EQU  #O0E8FD 
RJUST EQU  #12AE2 
FLOAT EQU  #1B322 
ENTRY ENTER 
CHAR  #D 
ENTRY LABEL1 
CHAR #F 
ENTRY LABEL 
CHAR #F 
ENTRY entry 
CHAR #F 
KEY 'ELSTR! 
TOKEN 8 
* syntaxe : 
KEY EL! 
TOKEN 9 
* syntaxe : EL(n), O<=n<=2 
KEY "INT$! 
TOKEN 10 
* syntaxe : voir STR$ 
KEY "MDIM' 
TOKEN 11 


* syntaxe : 


MDIMCX,n) ou MDIM(X$,n) 


* X, X$ = matrice, vecteur où tableau alphanumérique 
* O<=n<=2 


ELSTRP 


resptr 
ELSTRd 


ENTER 


ENDTXT 


GOSBVL 
GoC 

GOSBVL 
GOSBVL 
GOVLNG 
GOVLNG 


REL(5) 
REL(5) 


EOLCK 

resptr 
RESPTR 
STRGCK 
RESPTR 
DROPDC 


ELSTRd 
ELSTRp 


A=DATO B 


LCHEX 
?A<C 
GOYES 


D1=(5) 
LCHEX 
P= 


FO 
B 
EL1 


EOLSTR 
OAOAOD 
5 


parse ELSTR : paramètre ? 

non 

oui: pointeur avant La chaîne 
vérifier chaîne ok 


routine de décompilation 


Y-a-t'il un paramètre ? 
Cette partie est tirée des 
IDS III (ENDLINE) 

Si oui, brancher en EL1 


Non: alors utiliser La chaîne 
par défaut 


EL1 


OK 


DAT1=C 
GONC 


GOSBVL 
GOSBVL 
c=0 
LC(1) 
?A=C 
GOYES 
GOVLNG 
ADOEX 
D0=(5) 
p= 
C=DAT1 
DATO=C 
ADOEX 


nxtstm GOVLNG 


* fonction EL 
* un paramètre numérique obligatoire 


LABEL1 


LABEL2 


Argerr 


NIBHEX 
CDOEX 
R3=C 
DO=(5) 
A=0 
A=DATO 
?A=0 
GOYES 
A=A-1 
A=A-1 
ASRB 
R2=A 
GOSBVL 
GONC 
P= 
LC(1) 
?A>C 
GOYES 
LC(1) 
C=C-A 
GOSBVL 
DATO=A 
C=R3 
CDOEX 
A=R2 
GOSBVL 
ACEX 
GOVLNG 
GOVLNG 


WP 
nxtstm 


EXPEXC 
POP1S 
W 

6 

A 

Ok 
ARGERR 


EOLSTR 
5 

WP 

WP 


NXTSTM 


811 


EOLLEN 
W 
1 
W 
LABEL2 
A 
A 


RNDAHX 
Argerr 
0 

#2 

P 
Argerr 
#5 

A 
A-MULT 
1 


HDFLT 
W 
FNRTN1 
ARGERR 


* fonction INT$ 
* un paramètre numérique 


LABEL 


NIBHEX 
CDOEX 
R3=C 
DO=(5) 
C=0 
C=DATO 
R4=C 


811 


DSPFLG 
W 
S 


stocker La chaîne dans EOLSTR 
GET: 


évaluer l'expression, et 
dépiler La chaîne 


6 quartets ? 


non : beeeep ! 
sauve DO 
DO pointe sur EOLSTR 


copie La Math Stack dans C 
copie C dans EOLSTR 
restaure DO 

sortie 


sauver DO en R3 
DO pointe sur EOLLEN 
efface A 


0 renvoie 0 


convertit 4 en 1, 6 en 2 


divise par 2 
sauve l'ancien en R2 


pas d'argument négatif 


pas d'argument >2 


convertit l'argument en un nb 
de quartets 
stocke résultat dans EOLLEN 


restaure DO 
prépare l'ancienne valeur 
pour la sortie 


renvoie l'ancienne valeur 


sauver DO 

dans R3 

adresse du quartet à sauver 
et à changer 

C(S) = ce quartet 

sauver en R4 


C=0 
P= 
LC(1) 
DATO=C 
GOSBVL 
GOSBVL 
GOSBVL 
DAT1=A 
A=0 
GOSBVL 
C=R4 
DATO=C 
c=0 
C=R3 
CDOEX 
GOVLNG 
* MDIM 


u 

0 

#8 

1 
POPIR 
RJUST 
FLOAT 
W 

y 
STR$SB 


EXPR 


Cette valeur va forcer STD 
dans DSPFLG 


conversion 
restaurer Le quartet originel 


restaurer DO 


sortie, chaîne déjà sur M.S. 


* er : chaîne ou tableau 
* 2eme : numérique 


NIBHEX 
entry GOSBVL 
GONC 
D1=D1+ 
R1=A 
A=DATI 
P= 
LCHEX 
p= 
GOSBVL 
GONC 
LCHEX 
P= 
GOSBVL 
GONC 
GOVLNG 
start1 ST=1 
GOTO 
argerr GOVLNG 
start2 ST=0 
start A=R1 
C=0 
?A=C 
GOYES 
C=C+1 
?A=C 
GOYES 
C=C+1 
?A>C 
GOYES 
?ST=1 
GOYES 
GOSUB 
D1=D1+ 
A=DAT1 
GOTO 
GOSUB 
D1=D1+ 
A=DAT1 


dime 


base 


8E22 
RNDAHX 
argerr 
16 


B 
0 


dépiler Le numérique en hexa 


sauter le numérique 
Le sauver dans R1 
type de l'objet sur La M.S. 


#1A1B1C1D1E Les types des vecteurs 


9 
MEMBER 
start1 


est-ce un de ceux-là ? 
si oui, brancher 


#2A2B2C2D2E1F matrices, F1 = tab$ 


11 
MEMBER 
start2 
RDATTY 
4 
start 
ARGERR 
4 


argerr 
4 
vector 
saveD1 
3 

4 

out 
saveD1 
2 

1 


est-ce un de ceux-là ? 
si oui, brancher 


si non : Data Type ! 
flag 4 = 1 si vecteur 
flag 4 = O0 sinon 


A = paramètre numérique 


était-ce 0 ? 
limite inférieure 


était-ce 1? 
nombre de lignes 


argument > 2 ? 
Invalid Arg ! sinon 
est-ce un vecteur ? 


: dim2 


sans commentaire... 

q. 3-6 = dim 2 (ou maxlen) 
dans A 

et retour à l'utilisateur 


q. 2 = limite inférieure 
dans A 
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out C=RO retour à l'utilisateur 


CD1EX 
out1 GOSBVL HDFLT D1 était bon pour vecteur! 
: ‘D1=D1- 16 préparer D1 pour la sortie 
ACEX W 
GOVLNG FNRTNT renvoyer Le résultat 
saveD1 CD1EX routine pour sauver D1 
RO=C dans RO 
CD1EX 
RTN 
dimi  GOSUB saveDi 
D1=D1+ 7 q. 7-10 = nb de lignes 
A=DATI 4 dans A 
GOTO out 
vector A=0 W 
GOTO out 0 pour dim2 des vecteurs 
END 






Un HP-71 
€ lest bien 


TU 








Meis eve 


Free 


clesr Mieux 
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COMPILEZ VOS CONSTANTES 


A l'image du programme de musique de Serge 
Vaudenay, (voir JPC 22, page 46) voici un 
programme qui crée des fichiers Lex. Ne vous 
emballez pas, il ne s’agit pas de construire des 
routines évoluées, mais des programmes simples dont 
la réalisation manuelle est fastidieuse : les fonctions 
constantes numériques. 


On introduit les noms des fonctions, puis leur valeur, 
les caractéristiques propres du programme : nom du 
Lex, ID, numéro du plus bas token, puis le 
programme fait le reste. La dernière étape à réaliser 
consiste à assembler le fichier Texte créé. 


Dans ce programme, la partie la plus intéressante est 
la recherche de l’ordre dans lequel il faut mettre les 
mots. En effet, il faut que les mots soient classés par 
ordre alphabétique, mais avec toutefois une 
exception : par exemple si on a les mots AA et AAS, il 
faudra placer AAS avant AA pour que AAS soit reconnu. 


Dernière recommandation : les noms de fonctions 
doivent avoir au minimum 2 lettres et au maximum 8 
lettres. 


Amusez-vous bien... 


Lionel Guillou (326) 


CALENDROMANIE 


Tout d’abord je tiens à vous remercier pour avoir bien 
voulu publier mes deux programmes de calcul de 
dates et de durées dans JPC 50. 


Le calendrier Julien 


Pour que JPC soit complet, il me paraît indiqué de 
communiquer mes cogitations à nos amis à propos du 
calendrier Julien en usage du jeudi 4 janvier 45 avant 
Jésus Christ (c’est à dire l’an 709 de Rome) au jeudi 4 
octobre 1582 où la réforme de Jules César a fait place 
à celle de Grégoire XIII, le lendemain devenant le 
vendredi 15 octobre 1582. 


Le calendrier Julien offre moins d’intérêt que l’actuel. 
Cependant, pour les amoureux de l'Histoire... 


Voici quelques dates de contrôle : 


-15 janvier 69 : Marcus Silvius Othon couronné 
Imperator. C'était un dimanche. 

-1 juillet 987 : couronnement de Hugues Capet. 
C'était un vendredi. 

- 14 octobre 1066 : bataille de Hastings. C'était un 
samedi. 

-25 août 1270 : mort de Saint Louis devant Tunis. 
C'était un lundi. 

- 26 août 1346 : bataille de Crécy. C'était un samedi. 
-25 octobre 1415 : bataille d’Azincourt. C'était un 
vendredi. 

-30 mai 1431 : mort de Jeanne d’Arc. C’était un 
mercredi. 

-12 octobre 1492 : découverte de l'Amérique par 
Christophe Colomb. C’était un vendredi. 

- 13 septembre 1515 : bataille de Marignan. C'était un 
jeudi. 

- 24 août 1572 : massacre de la saint Barthélémy. 
C'était un dimanche. 


Les jours de Pâques 


Je complète ma «calendromanie» par un 
programme donnant les jours de Pâques par la 
méthode de Gauss. En référence, outre l’année en 
cours, on peut noter : 


-30 mars 1282 
Siciliennes, 

- 5 avril 1722 : découverte de l’Ile de Pâques, 
- 16 avril 1797 : Pâques Véronaises. 


Lundi de Pâques dit Vépres 


En espérant toute votre indulgence, je vous adresse 
toutes mes félicitations pour la très haute qualité de 
JPC où mes petits programmes peuvent faire piètre 
mine. 


Jean Maille (392) 










Dvand est-ce 
qu'on mange? 
y, 


Y 
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Programme "BUILD" (création de fichier Lex de constantes numér iques } 


16 STD à DELAY .5 à DESTROY ALL à LC OFF 

20 DISP Lex builder!! 

30 INPUT ‘Fichier destination:";A$ 

40 CREATE TEXT A$ 

50 INPUT ‘Nom du Lex:"':N$ à NS=N$[1,8] 

60 INPUT "Id:":1$ 

70 INPUT "Plus bas token:'";T 

80 INPUT "Nbre de fonctions:";N 

90 DIM B$S(N),VCN) 

100 FOR I1=1 TO N à DISP "Nom Fonction Milsnin; @ INPUT B$(I) à B$(1)=B$(1)[1,81 

110 DISP "Valeur Fonction";l;":l: @ INPUT V(I) à NEXT 1 
- Construction fichier Lex 

120 ASSIGN #1 TO A$ 


130 PRINT #1;" LEX  tugnggnin 
140 PRINT #1;" ID #U&IS 

150 PRINT #1;" MSG 0" 

160 PRINT #1;" POLL O0" 


170 PRINT #1; "FNRTN1 EQU #0F216" 
- Tri des fonctions 

180 DIM CSCN),WCN) 

190 C$(1)=B$(1) à W(1)=V(1) 

200 FOR 1=2 TO N à J=1 


210 "BOUCLE": IF C$(J)=B$(1)[1,LEN(C$(J))] THEN GOSUB ‘INTER! @ GOTO 'NEXT' 
220 IF B$(I)<C$(J) THEN GOSUB ‘INTER! à GOTO 'NEXT'! 
230 J=J+1 


240 IF J#I THEN BOUCLE! 
250 C$(1)=B$(1) à W(I)=V(1) 


260 INEXT': NEXT I! 
270 FOR 1=1 TO N 
280 PRINT #1;1 ENTRY F'&STR$(I) 
290 PRINT #1;1t CHAR  #F1! @ NEXT I 
300 FOR 1=1 TO N 
310 PRINT #1;1 KEY In&CH(I)&UM IN 
320 PRINT #1;1! TOKEN  M&STR$S(T+I1-1) 
330 NEXT 1! 
340 PRINT #1;" ENDTXT!! 
350 FOR 1=1 TO N à DESTROY Z$ 
360 PRINT #1; NIBHEX 00" 
370 PRINT #1; "MFM&STRS(I) 
380 PRINT #1;1 P= On 

. Nbr : smmmmmmmmmmmmeee 


s=signe:0 si nbre>0 / 9 si nbre<0 
m=12 chiffres de mantisse 
E=exponent(n) ,n=nbre 
eee=exposant;si n>1 e=E / si n<1 e=1000+e 
390 IF WCI)<0 THEN 2$01,1]="9" ELSE 2$[1,1]="0" 
400 WCI)=ABS(W(1)) 
410 E=EXPONENT(WCI)) 
420 FIX 12 @ IF E<O THEN 22$=STR$(W(1)*10"(12-E)) à 2$(2,13]=22$(1,11822$13,13] à E1=1000+E 
430 IF E>=0 THEN Z2$=STR$(W(1)*10"(12-E)) à 2$12,13]=22$[11,1]822$(3,13] à E1=E 
é Place ou non Les O0 d'entête pour l'exposant 
440 STD à IF LENCSTR$(E1))=3 THEN 2Z$[14,16]=STR$(E1) 
450 IF LENCSTRS(E1))=2 THEN 2$[14,16]="O"8STR$S(E1) 
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460 
470 
480 
490 
500 


510 


520 


530 


540 


550 
560 


IF LENCSTR$S(E1))=1 THEN Z$[14,16]="O0M&STRS$S(E1) 
PRINT #1;1 LCHEX "&Z$ 
PRINT #1;" GOVLNG FNRTN1! @ NEXT 1! 
PRINT #1;1 END"! 
END 
INTER! : 
Intercaler un élément. 
Décalage 
FOR K=N TO J+1 STEP -1 
C$S(K)=C$CK-1) à WCK)=WCK-1) 
NEXT K 


copie l'elt. 
C$CJ)=B$CI) à W(J)=VCI) 
RETURN 


ee 2 ee ee ee ee ee ee ee HR RAR A 


Programme "JULIEN" (calendrier Julien (1 janvier 45 avant J.C. au & octobre 1582) 


10 

20 

30 

40 

50 

60 

70 

80 

90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 


DESTROY ALL 

DISP "Calendrier Julien (1/1/45 av J.C <= DATE <= 4/10/1582 ap J.C)" 
DISP à DISP 

INPUT ‘'Jour:!;J 

INPUT f“Mois:!t:M 

INPUT ‘“'Anneé:!t;:Y 

1F Y<-45 OR Y>1582 THEN 60 

DISP à DISP 

S=INT(Y/100) 

A=Y-100*S 


D3=MOD(J-1,7) 

IF M=2 OR M=3 OR M=11 THEN D2=0 
IF M=6 THEN D2=1 

IF M=9 OR M=12 THEN D2=2 
IF M=4 OR M=7 THEN D2=3 

IF M=1 OR M=10 THEN D2=4 
IF M=5 THEN D2=5 

IF M=8 THEN D2=6 
D1=MOD(A+INT(A/4),7) 
DO=MOD(6*S,7) 
D=MOD(1+D0+D1+D2+D3,7) 
D=D+1 

DISP LEE " 

ON D GOTO 250,260,270,280,290,300,310 
DISP "Dimanche" à GOTO 320 
DISP "Lundi! à GOTO 320 
DISP "Mardi" à GOTO 320 
DISP “Mercredi" à GOTO 320 
DISP “Jeudi! à GOTO 320 
DISP "Vendredi!" à GOTO 320 
DISP "Samedi! 

DISP Hosssss.e LL 
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Programme ''PAQUES'"' (calcul des dates de Pâques) 


- Calcul des dates de Pâques 
Jean Maille 
10 DESTROY ALL 
20 DISP "Calcul des dates de Pâques par La méthode de Gauss pour une période donnée!! 
- Elles sont comprises du 22 Mars au 25 Avril inclus 
40 DISP 
50 INPUT ‘Année de départ:!";:Y0 
60 INPUT ‘Année d'arrivée:";y1 
70 FOR Y=YO TO Y1 
80 S=INT(Y/100) à A=Y-100*S 
90 IF Y>1582 THEN 120 
100 A0=15 à B0=6 
110 GOTO 140 
120 A0=15+S-INT(S/4)-INT(S/3) 
130 BO=MOD(4+S-INT(S/4),7) 
140 R1=MOD(Y,19) 
150 R2=MOD(Y,4) 
160 R3=MOD(Y,7) 
170 R4&=MOD(19*R1+A0,30) 
180 R5=MOD(2*R2+4*R3+6*R4+B0,7) 
190 D=22+R4+R5 
200 IF D<=31 THEN DISP MEn ":Y:M Le !:D:"Mars! à GOTO 280 
210 D=R&+R5-9 
220 IF R5#6 THEN 270 
230 IF R4#28 THEN 250 
240 IF R1>=11 THEN 260 ELSE 270 
250 IF Ré#29 THEN 270 
260 DISP "En ";Y;" Le ":D-7;:"Avril" à GOTO 280 
270 DISP MEn ":Y: Le “:D:"Avril" à GOTO 280 













280 NEXT Y 

290 END 
Ce qui n'a pas de sens 
8 parfois vne signification. 
C'esr la sevle yush£ication 
d'un acte gratuit. 

Maurice HERZOG- 
(Conquête de _@'ANNAPURNA) 
Le 
4 
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LE COIN DES LHEX 


Comme de coutume, cette rubrique contient la liste des codes hexadécimaux des fichiers Lex 
parus ce mois-ci. 


Rappelons ce qu’est un fichier Lex : c’est un programme pour le HP-71, en assembleur, qui 
apporte de nouvelles fonctions. Celles-ci sont utilisables directement, ou dans des programmes 
Basic. 


Pour bénéficier de ces nouvelles fonctions, vous n’avez pas besoin de programmer vous-même en 
assembleur, ni de posséder un module Forth/Assembleur. 


Il suffit de recopier le petit programme basic "MAKELEX" ci-dessous, de le lancer et de recopier 
les codes du fichier Lex désiré. Quand vous avez fini, les nouvelles fonctions sont accessibles, 
après avoir éteint et rallumé votre HP-71. 


Si l’erreur "Erreur de somme" apparaît, vérifiez la ligne que vous avez introduite. 


Vous trouverz donc le Lex CHARLEX nécessaire à la rédaction de votre article (voir "Ah ! Vous 
écrivez !"), ainsi que le Lex de programmation structurée de ce mois-ci. 


CHARLEX 


MISCLEX  ELSTR XWORD 92008 EL XFN 92009 
INT$ XFN 92010 MDIM XFN 92011 


10 CALL MLEX SUB MLEX à SFLAG -1 à PURGE AH @ INPUT "Nb. d'octets: ";N à LC OFF 
20 CREATE DATA AH,1,N-4 @ A=HTD(ADDR$('"AH")) à B=A à GOSUB 130 

30 a=1 à X=0 à INPUT "000: ",P$;A$ à C$=A$ à S=0 à GOSUB 90 

40 Q=2 à X=1 à GOSUB 80 à AS=ASRCS à A=A+37 9 N=N*2+37 9 Q=3 à SFLAG 5 @ FOR X=2 TO N DIV 16-1 
50 GOSUB 80 à C$=CS[S*FLAG(5)+1] à POKE DTHS(A),C$ à A=A+16-5*FLAG(5,0) à NEXT X à Q=4 

60 DISP DTHSCX)[31; à INPUT ": ",P$[1,MOD(N,16)];C$ à GOSUB 90 

70 POKE DTH$(A),C$ à POKE DTHS(B),A$ à CFLAG -1 à END 

80 DISP DTH$CX)[3]; à INPUT M: 1,P$;C$ 

90 DISP DTH$CX)[31; à INPUT " sm ","---":D$ 

100 M=S à FOR Z=1 TO LEN(CS) à M=NUMCCS[Z])+M+1 à NEXT Z 

110 1F D$=DTHS(MOD(M,4096))[3] THEN GOSUB 130 à S=M à RETURN 

120 DISP “Erreur de somme" à BEEP à P$=C$ à POP à ON Q GOTO 30,40,50,60 

130 P$="M-----.-......... à RETURN 
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CHARLEX 624 octets 029: 0000000201020000 84E 000: D4943534C4548502 373 


02A: 0001000100000002 B62 001: 802E000000000000 6A2 

012345678SABCDEF sm 028: 0102010000000000 E76 002: 2A200C580B000000 9F9 

02C: 0000000000000000 186 003: F230000000000000 D24 

000: 34841425C4548502 35E 020: 045E755142400101 4D2 004: OE7000DDO0ADO00F 0B3 
001: 802E000000000000 68D 02E: 0101010000000000 7E5 005: 410C3100FF104910 41A 
002: 5E4001EFF0000000 9FD 02F: 0000000000000000 AF5 006: 0F954C4354525803 78C 
003: FE0000000800001F D57 030: 0000070507000000 E18 007: 54C490794E44542A B12 
004: F31BF961400032BF OEA 031: 00000000083444C4 156 008: 07D44494D4B01FF8 EB5 
005: 38F14A11DB10AD23 484 032: 44400D7901112D70 4B6 009: FE7A204018F27130 23A 
006: 07D532BFB8FD7911 837 033: 050D750509700000 800 O0A: 8FAB6308D271308D 5D9 
007: 11AD754D7A101743 BBA 034: 0D70000000384540 B43 00B: 074509FFFF5DFFF1 9B6 
008: 11014D1CB15D0000 F25 035: 4020014E322E3140 E97 O0C: 4A310F9E2A11FB59 D5E 
009: 71450375FF864834 2A2 036: 084E794142400000 1E7 00D: F235D0A0A0251551 0D7 
O0A: 5655581008355654 5F9 037: 00000000002€4559 525 00E: 5938F681F08F83DB 48A 
008: 5810070507701724 93F 038: 3200000000000000 83A 00F: OAF23068A2908D91 816 
00C: 7700775070077517 C92 039: 0000000000000026 B52 010: FB01321BB59F2251 BA7 
00D: 2077040708364545 FEO 03A: 5556587008365556 EB1 011: 57115411328D84A8 F16 
00E: 4A30000449724000 333 038: 5810083645464830 202 012: 081113610B1BA59F 295 
00F: 0808094A2C180814 69C 03C: 0832414248700024 543 013: 2AF015A097890CCC 63F 
010: A464242008355455 9F6 030: 5655587008345655 8A0 014: C81C1028FBC63156 9D9 
011: 581000054C714000 D3C 03E: 5810083446454830 BEF 015: 320302986C2305E2 D3E 
012: 0C3142404C700832 098 03F: 0C3042414C700024 F44 016: 8F943B1158011B13 0B5 
013: 41414A70002078A0 3F0 040: 5556587008355654 2A1 017: 61128FB13B1AFE8D 46E 
014: 2F30000000000000 718 041: 5810083546444830 5F0 018: 612F08D91FB08111 7F6 
015: 0000000000000000 A2B 042: 0C3142404C700025 946 019: 3610B1BCD6F2AF21 BA4 
016: 0000000000000000 D38 043: 5455587008355455 CAO O1A: 56410CAF22030815 F13 
017: 0000000000000000 048 044: 5810083544454830 FEE 01B: CO8FDF8EO8F2EA21 2E4 
018: 0000000000000000 35B 045: 0C3140414C700875 350 O1C: 8F223B11517AF08F 67F 
019: 0000000000000000 66B 046: 141418700004À4972 6A1 01D: 9418111C1544AF21 9F3 
01A: 0000000000000000 978 047: 40000E3159454E30 A01 O1E: 1B1368DC32FO08E22 D8B 
018: 0000000000000000 C8B 048: OC7A0F7949400024 D79 O1F: 8FBC6315D417F101 125 
01C: 0000000000000000 F9B 049: 5554587000084A71 0D5 020: 14B2039E1D1C1B1A 4BD 
010: 0000000000000000 2AB O4A: 40000C523A262D10 436 021: 1298F890B15323BF 850 
01E: 0000000000000000 5BB 04B: 0424587458400875 78D 022: 1E2D2C2B2A22B8F8 C04 
01F: 0000000000000000 8CB 04C: 1415187000094A70 ADD 023: 90B15718D6CC7185 F9A 
020: 0000000000000000 BDB 04D: 4000083544454830 E21 024: 46D008D91FB08441 327 
021: 000000000000080€ F06 04E: 0C3140414C300C74 189 025: 11AF28A242E68A2D 6CD 
022: 1A28080008080A2C 270 04F: 5655545000054c71 4E0 026: 4E68B6FD87405703 A68 
023: 180008040E340800 5B9 050: 40000 5D9 027: 017215B36E007120 DC2 
024: 08001E3018000000 8F3 028: 17115B01181378FB 138 
025: 0000000000000000 c03 MISCLEX 335 octets 029: 13B11CFAFE8D612F 500 
026: 0000000000000000 F13 02A: 01371081370171FF 864 
027: 0000000000000000 223 0123456789ABCDEF sm 02B: 17615B36FCFAF06E C24 
028: 0201000000010200 539 O2C: CFF CF6 
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ENGLISH SUMMARY 
JPC 54 - MAY 1988 


We hope you have not believed in the new HP-41 module describes last month. It was the April issue ! You 
have probably missed a lot of French jokes in the article. 


The HP-28 column is taking more and more weight in /PC : it includes 5 articles this month. The first one, 
by Janick Taillandier on page 4 describes a very interesting behavior of the new HP-27S. If you press [CLR] 
and together the third menu key from the right, then release both keys and press 1-1 : you get a memory 
dump of the HP-27S. The following keys 1*1, 1/1, t+1 and [-1 are active and allow you to scroll through the 
memory. The same behavior has been noticed on the HP-17B. 


Next, Philippe Heïlbronn presents you a set of interesting utilities around one common subject : the use of 
constant factors in RPL. 


After the entry point lists for the HP-28C (version 1BB), Sébastien Lalande gives us the list for the HP-2SS$. 


The final article of this large column is a game by Paul Courbis and Sébastien Lalande. The goal : discover 
the purpose of the program. 


The HP-75 column includes a new Lex file from Jean-Yves Hervé which allows you to exchange data with 
an HP-41 via a mass storage. Among the keywords, you find pointer positioning, data reading and format 
conversion. 


The HP-71 column includes a very important article from Serge Vaudenay. It is a Lisp interpreter written in 
Forth. There is a very detailed introductory article about Lisp mechanisms and its implementation on the 
HP-71. It is not a full featured Lisp interpreter, but it includes all fundamental mechanisms of the language 
and so is very valuable to learn the language. It is a major event : a new language on the HP-71 ! 

Our Australian friend Jack Elhay (hello Jack !) presents us one of his realizations in assembly language. 
They are very interesting to study if you begin to write in assembly language. In any case, they will help you 
if you wish to control your printer. 


The next article is a constant compiler from Lionel Guillou. It creates a Lex using a list of symbols and their 
numeric values. This increases the legibility of your Basic programs. 
The last article by Jean Maille is a variation on the theme of date computations. 


Until next month, 


Happy Programming and JPC reading ! 


